Preciso conectar o banco de dados pelo módulo

[danizinha 0]

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:

[danizinha 0]

:D :D :D :DGalerinha consegui. Se alguém tb estiver precisando fiz da seguinte forma:Option ExplicitGlobal Con_Connection1 As ADODB.ConnectionGlobal Rst_Recordset1 As ADODB.RecordsetPublic Sub Abrir()'Conectando com o BancoSet Con_Connection1 = New ADODB.Connection Con_Connection1.CursorLocation = adUseClient Con_Connection1.Open ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\Versatil.mdb; Persist Security Info = False") Set Rst_Recordset1 = New ADODB.Recordset Rst_Recordset1.CursorLocation = adUseClient Rst_Recordset1.CursorType = adOpenStatic Rst_Recordset1.ActiveConnection = Con_Connection1End Sub Depois basta que chame a função em cada Form_Load.Danizinha