RE:como me conecto ha una base de datos con VB6
Yo lo utilizo asi
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