'Num módulo

   'Variavel - Conexão com Banco de Dados
   Global Glb_Conexao As ADODB.Connection
  
   'Variável - String que recebe SQL
   Global Glb_Pesquisa As String

Sub Conexao_Recordset(Ado_Recordset As ADODB.Recordset)
  
   ' Faz a Conexão com o Banco de Dados a Partir de um SQL
   ' utilizando uma Variável Recordset
  
   Set Ado_Recordset = New ADODB.Recordset
  
   Ado_Recordset.ActiveConnection = Glb_Conexao
   Ado_Recordset.CursorLocation = adUseClient
   Ado_Recordset.Open Glb_Pesquisa, , adOpenKeyset, adLockOptimistic
End Sub

'No Form Principal
   Set Glb_Conexao = New ADODB.Connection
   Glb_Conexao.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source =" & App.Path & IIf(Right$(App.Path, 1) = "", "", "") & "BancodeDados.mdb;Jet OLEDB:Database Password=Senha"

 

 

'Conexão

   Dim Ado_Cliente As ADODB.Recordset
   Glb_Pesquisa = "SELECT * FROM Tab_Cliente"

   Conexao_Recordset Ado_Cliente
   If Not Ado_Cliente.EOF Then
      Txt_Cliente = Ado_Localidade("Cliente")
      Txt_RazaoSocial = Ado_Localidade("RazaoSocial")
   End If

   Ado_Cliente.Close
   Set Ado_Cliente = Nothing