dim grsConsulta as New Adodb.recordset

dim bDados as new Adodb.Connection

Call bDados.Open("Provider = SQLOLEDB; Server=NomedoMeuPC; Database=NomedoMeuBD", "UsuariodoMeuBD", "SenhadoMeuBD") 'Este string é pra conectar ao bd SqlServer
bDados.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "NomedoMeuBD.MDB;" 'Este string é pra conctar ao bd Access

 

If Not AbreTab(gRsConsulta, "Select * from Assessor where CdUsuario=" & text1.text, 0) Then Exit Sub
do While not grsconsulta.eof

    'tratar os registros retornados no record set

    grsconsulta.movenext

loop

 

Public Function AbreTab(Tabela As ADODB.Recordset, Consulta As String, TipoAbertura As Byte) As Boolean
    'flag de abertura
    Dim resultado As Boolean
    Dim msg As String 'mensagem de erro
    resultado = False
   
    On Error Resume Next
    Tabela.Close
    Set Tabela = Nothing
   
    On Error GoTo TabelaErro
   
   
    Set Tabela = New ADODB.Recordset
    If TipoAbertura = 0 Then
        Tabela.Open Consulta, bDados, adOpenForwardOnly, adLockReadOnly
    Else
        Tabela.Open Consulta, bDados, adOpenKeyset, adLockPessimistic, adCmdText
    End If
   
    resultado = True
    AbreTab = resultado
   
    'fecha tratamento de erro
    On Error GoTo 0
    Exit Function

'tratamento de erro de tabelas
TabelaErro:
 '   Mense2 7
    MsgBox Err.Number & " " & Err.Description
    resultado = False
    AbreTab = resultado
    Exit Function
End Function