tenho que navegar dentro dos registros de uma tabela.
esse é meu codigo do baotao próximo:
sSql = " select * from cds"
AbreBanco (sSql)
Rs.MoveNext

txtnome.Text = Rs!titulo
lblcodigo.Caption = Rs!ID
alguém pode me ajudar dizendo o que esta errado?
 Andrea

VC poderia, por favor, colocar o algoritmo para fazer a conexão? (procedure AbreBanco)

 

obrigado

Public Function AbreBanco(ByVal sSql As String) As Boolean
    Dim strArquivo As String
    Dim strLocal As String
    Dim ConectaAccess As String
   
    Set Conexao = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    Set Rs = CreateObject("ADODB.Recordset")
   
    strArquivo = "D:andreacadastro de cdscad_cds97.mdb"
    strLocal = App.Path
   
    Set Conexao = CreateObject("ADODB.Connection")
    'ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & _
    '                "Dbq=" & strArquivo & ";" & _
    '                "DefaultDir=" & strLocal & ";" & _
    '               "Uid=;Pwd=;"
    ConectaAccess = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=" & strArquivo & ";" & _
         "User ID=;" & _
         "Password="

   
    Conexao.Open ConectaAccess
   
     Rs.Open sSql, Conexao, adOpenKeyset, adLockOptimistic
    AbreBanco = True

   
End Function

Testei o código e está aparentemente está tudo certo... qual a mensagem de erro? Se é q tem....pois a única coisa q não vejo são as declarações das variáveis Conexao e RS...

Valeu a força mas ja consegui resolver o problema.

    Andrea