ADO connection

Jeg sidder og bikser med lidt VB6 og en acessDB

jeg har lavet dette :

Private Sub TestADO()

Public MyConn As ADODB.Connection
Public MyRecSet As ADODB.Recordset
Dim strName As String
Dim strAddress As String
Dim strPhone As String

Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb;"
'MyConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\db2.mdb;"
MyConn.Open

Set MyRecSet = MyConn.Execute("SELECT CustomerName, CustomerAddress, CustomerPhoneNumber FROM Customers")

Do Until MyRecSet.EOF
    strName = MyRecSet.Fields.Item("CustomerName").Value
    strAddress = MyRecSet.Fields.Item("CustomerAddress").Value
    strPhone = MyRecSet.Fields.Item("CustomerPhoneNumber").Value

    lstData.AddItem strName & " - " & strAddress & " - " & strPhone

    MyRecSet.MoveNext
Loop

MyConn.Close


end sub



Men kan bare ikke få den til at oprette forbindelse til min test DB, nogen der kan fortælle mig hvor jeg går galt i byen, og hvad jeg bør gøre for at rette det?
på forhånd tak

mvh
JSG