Conectar base de datos access con Visual Basic 6.0

[rogeeer]

debes declarar una variable de tipo conexion de esta forma

Global cnnInfLoc As New ADODB.Connection

y para conectarte con la B.D, que en mi caso es Acces 97 y con password, lo hago de la sig. manera

cnnInfLoc.Open ConnectionString:="Provider=Microsoft.Jet.OLEDB.3. 51;Persist Security Info=False;Data Source=c:\sim\control.mdb;Jet OLEDB:Database Password=cajauniv"

si tu base es de Acces 2000, cambia la conexion muy poco

cnnInfLoc.Open ConnectionString:="Provider=Microsoft.Jet.OLEDB.4. 0;Persist Security Info=False;Data Source=c:\sim\control.mdb;Jet OLEDB:Database Password=cajauniv"


y de esta forma logro la conexion, pero para poder continuar, solmente compruebo, si la conexion tuvo exito de la sig. forma

if cnnInfLoc.state then
frminicio.show 1
else
msgbox "No se logro la conexion"
end
endif

si tuvo exito la conexion abro un formulario, si no mando un mensaje y termino el programa.

bueno espero que te sirva, ok.