Private Sub Command1_Click()
Dim dbfile As String, cs As String
Dim connstr As String, n As Integer
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
On Error GoTo xerr
dbfile = "Database1.accdb"
'Los siguientes códigos muestran como conectarse con y sin contraseña
connstr = "PROVIDER=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & dbfile & ";PERSIST SECURITY INFO=FALSE;"
'connstr = "PROVIDER=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & dbfile & ";Password=;User ID=Admin;"
Conn.Open connstr
If Conn.State = adStateOpen Then
cmd.ActiveConnection = Conn
cmd.CommandText = "select * from Table1"
rs.Open cmd
If rs.EOF = False Then
While Not rs.EOF
Print rs.Fields(0) & "-" & rs.Fields(1)
rs.MoveNext
Wend
End If
MsgBox "conexion correcta"
End If
Conn.Close
Set Conn = Nothing
Exit Sub
xerr:
MsgBox Err.Number & " - " & Err.Description
End Sub