Intentalo con el data esta en componentes microsoft components sp6.0 creo esta en ese con ese vienen dos opciones en sus propiedades uno DataBaseName y el otro RecorSource n el primero va la ruta de la base de datos y en el segundo va la tabla de la BD seleccionada asi de semplre es Suerte
'Declaras las variables Dim bd As Connection, (recorset) As Recordset
Private Sub Form_Load() If App.PrevInstance Then Exit Sub: End ' Solo ejecutar la App una vez Set bd = New Connection bd.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\(nombre de la base de daros.mdb)" & ";" bd.Open End Sub
Dim DbsQ As Database, ResultadoQ As dao.Recordset Set DbsQ = OpenDatabase(App.Path & "\materiales.mdb") Set ResultadoQ = DbsQ.OpenRecordset("SELECT * FROM Datos;") If ResultadoQ.RecordCount > 0 Then If MsgBox("Ya existen estos Datos. Desea cambiarlos por estos nuevos ?", vbYesNo + vbQuestion) = vbYes Then DbsQ.Execute "DELETE * FROM Datos;" DbsQ.Execute "INSERT INTO Datos (Usuario,Clave,Host) VALUES ('" & TUsuario & "','" & TClave & "','" & THost & "');" End If Else DbsQ.Execute "INSERT INTO Datos (Usuario,Clave,Host) VALUES ('" & TUsuario & "','" & TClave & "','" & THost & "');" End If DbsQ.Close
por un tema practico te aconsejo que te conectes por codigo y no por propiedades de algun compnente (esto hara que tu aplicacion no este limitada a tener que instalarla en un determinado directorio)
como no especificas a que BD te quieres conectar, te pongo la sgte pagina para que la visites.. ahi sale como conectarte a las diversas BD, espero te sirva, cualqueir cosa dime solamente....