Connect VB6 to Msaccess

Question

I created a Msaccess Database and created a connection module. However, when the executable gives connection error. Someone has another example of how to connect VB6 to Msacess?

The code to my module:

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

Answer 1

Your connection function should be:

Private Sub conexao()
    Set T = creatobject("adodb.connection")
    Set c = creatobject("adodb.recordset")
    connString = microsoft.jet.oledb.4.0;datasource = " + app.Path & "\alex.mdb"
    T.Open connString // Abre a ligação para a base de dados
End Sub

Only after opening connection with the T.Open is that it will be able to perform operations in the BD.