Vb não conectando RecordSource com o Access

[Quantas.duvidas 0]

Estou tentando conectar do Vb para o Access um banco de dados para uma aplicação simples de agenda eletronica, porém quando vou ajustar o RecordSource para a agenda aparece um msgbox com a seguinte mensagem: "Unrecognized database format ' C:\Meus documentos\dbAgenda.mdb'. " Alguém sabe o que está acontecendo? Grata pela atenção

[Jattobá 0]

'-----------------------------------------------Faço dessa forma: em um módulo coloco a rotina AbreBanco()Sub AbreBanco()On Error GoTo ProcError    Set db = New ADODB.Connection    With db         .CursorLocation = adUseClient         .Provider = "Microsoft.jet.OLEDB.4.0"         .ConnectionString = "Data Source=" & GetSetting(App.EXEName, _         "Database", "Path", App.Path & "\BDponto.mdb") & ";"         .Open    End WithProcExit:    Exit Sub'ErrosProcError:    Select Case Err.Number    Case -2147467259        MsgBox "BANCO DE DADOS não encontrado no endereço abaixo." & vbCrLf & "Solicite ajuda ao Help Desk." & vbCrLf & Err.Description, vbCritical        End 'finaliza    Case Else        MsgBox "Solicite ajuda ao Help Desk." & vbCrLf & "Erro: " & Err.Description, vbCritical        Resume ProcExit    End SelectEnd Sub'----------------------------------------Nor Forms coloco assim:Sub carregaFunc()    Dim rsFunc As ADODB.Recordset    Dim sSQL As String    sSQL = "SELECT * FROM BaseFunc WHERE Matricula = " & iCodigoFunc    Set rsFunc = db.Execute(sSQL)    If Not rsFunc.EOF Then             TxtMatricu.Text = IIf(IsNull(rsFunc!Matri), "", rsFunc!Matri)             TxtDtAdm.Text  = IIf(IsNull(rsFunc!Nome), "", rsFunc!Nome)    End If    Set rsFunc = NothingEnd Sub

[Luizgrs 0]

Procura no Fórum sobre isso que você encontrará a resposta.