Cómo conectar la base de datos accsee en la programación vba (para acceder
Opción explícita
096 Dim Database As Object
097 Private Sub Form_Load()
098 Set Database = New ADODB ("PROVIDER=Microsoft.Jet.OLEDB. .4..0;Data Source=Data.mdb;") 'Conectarse a la base de datos
100 Si ((Database.State) = (adStateOpen)) Entonces
101 MsgBox ( "¡Conexión exitosa!" )
102 Else
103 MsgBox ("¡Conexión fallida!")
104 End If
105 End Sub
106 Private Sub Form_Unload(Cancelar como entero)
107 Database.Close 'Cerrar la base de datos
108 Set Database = Nothing 'Borrar las variables de la base de datos
109 Subtítulo final