Criei uma Base De Dados em MSAccess e criei um módulo de conexão. No entanto, quando o executo dá erro de conexão. Alguém tem um outro exemplo de como conectar VB6 ao MSAcess?
O código do meu módulo:
Option Compare Database
Option Explicit
Public T As Connection
Public c As Recordset
Private Sub conexao()
Set T = creatobject("adodb.connection")
Set c = creatobject("adodb.recordset")
T.OpenRecordset " provider = microsoft.jet.oledb.4.0;datasource = " + app.Path & "\alex.mdb"
End Sub
Private Sub desconexao()
Set T = Nothing
Set c = Nothing
End Sub
datasource = " + app.Path & "\alex.mdb"
numaMsgBox
e verifique o caminho está correcto. A base de dados tem password?