Visual basic connection --> access db

Hei jeg har store problemer med og koble meg opp mot min db

Dette er hva jeg har skrevet (og det fungerte i går ) Hvorfor fungerer det ikke lenger...


******************************************************
'dette er en dbHandler
***************************
'global
Public cnnFoKK As New Connection

Public Sub init()
   
cnnFoKK.Open "provider=microsoft.jet.OLEDB.4.0;" & _
                "data source=D:\My\Fokk\Db\fokk.mdb;" & _
                "Jet OLEDB:DATABASE PASSWORD=xxx;"
   
End Sub

Public Sub quit()
    cnnFoKK.Close
End Sub

***********************************************************
'Dette er en i en form
****************************
Private Sub txtKunde_ID_Change()
    Dim sql As String
   
    Dim rsKunde As Recordset
    Set rsKunde = New ADODB.Recordset
   
    rsKunde.Open "Kunde", dbHandler.cnnFoKK, adOpenKeyset, adLockOptimistic, adCmdTable
   
    sql = "Select * from kunde where kunde_id=3  "
   
    Set rsKunde = dbHandler.cnnFoKK.Execute(sql)
   
    MsgBox sql
 
    rsKunde.Close
End Sub