Preciso conectar o banco de dados pelo módulo

Fiz este exemplo:Option ExplicitGlobal cn As ADODB.ConnectionGlobal rs As ADODB.Recordset'Conexão:Private Sub Main()Dim strArquivo As StringDim strLocal As StringDim ConectaAccess As StringLoad frmAgendafrmAgenda.ShowDoEventsSet cn = New ADODB.ConnectionSet rs = New ADODB.RecordsetstrArquivo = "agenda.mdb"strLocal = App.PathSet cn = CreateObject("ADODB.Connection")ConectaAccess = "Driver={Microsoft Access Driver (.mdb)};" & _"Dbq=" & strArquivo & ";" & _"DefaultDir=" & strLocal & ";" & _"Uid=Admin;Pwd=;"cn.Open ConectaAccessEnd Sub'Rotina de Inclusão:Public Function Inserir(ByVal strNome As String, _strEnd As String, _strFone As String) As Variantcn.Execute ("insert into pessoal(nome,end,fone)" _& "values('" & strNome & "','" & strEnd & "','" & strFone & "')")Inserir = TrueEnd Function'Rotina de Alteração:Public Function Alterar(ByVal intCodigo As Integer, _strNome As String, _strEnd As String, _strFone As String) As Variantcn.Execute "update pessoal set nome= '" & strNome & "'," _& " end= '" & strEnd & "', fone= '" & strFone & "'" _& " where codigo = " & intCodigoAlterar = TrueEnd Function'Rotina de Consulta:Public Function Consultar(ByVal intCodigo As Integer) As VariantSet rs = CreateObject("ADODB.Recordset")With rs.Open "select from pessoal where codigo=" & intCodigo & "", cn, adOpenKeyset, adLockOptimisticIf .RecordCount = 0 ThenMsgBox "Código Inválido", vbExclamation, "Erro"ElsefrmAgenda.lblCod = !codigofrmAgenda.TxtNome = IIf(IsNull(!nome), Empty, !nome)frmAgenda.TxtEnd = IIf(IsNull(!End), Empty, !End)frmAgenda.txtFone = IIf(IsNull(!fone), Empty, !fone)End If.CloseEnd WithEnd Function'Rotina de Exclusão:Public Function Excluir(ByVal intCodigo As Integer) As Variantcn.Execute "delete * from pessoal where codigo=" & intCodigo & ""Excluir = TrueEnd FunctionQue deu este erro:Fiz o seu exercicio conforme estava no site www.imasters.com.br, e apareceu a seguinte mensagem de erro:erro '-2147467259(080004005) [Microsoft][Driver ODBC para microsoft acess]Não foi possível encontrar o arquivo '(desconhecido)'meu banco de dados estáno caminho C:MeusDocumentos\agenda.mdbAlguém sabe comoposso proceder????Obrigadadani :huh: