Olá amigos do fórum, preciso da ajuda de vcs em um problema.

 

Estou usando um objeto adodc, para estabelecer conexão com o banco de dados (access), a codifiquei o caminho ao bando da seguinte maneira:

 

No Form Load

 

    With Adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Banco.mdb;Mode=Read;Persist Security Info=False"
        .RecordSource = "Select * from Tab1"
    End With

Até aí tudo bem, então tento navegar pelos registros, usando um command button, da seguinte forma, neste caso avançando, por exemplo:

 

No Command Button

 

    If Adodc1.Recordset.EOF = True Then Exit Sub

é onde surge o problema, o vb me dá a seguinte mensagem de erro:

 

 

e ele me destaca a seguinte parte do código:

 

 

Agora se faço a conexão direto no objeto, funciona que é uma beleza.

 

Qual o problema que poderia estar ocorrendo?

 

Agradeço a ajuda de vcs desde já,

 

Daniela

daniela , vc nao abriu o banco e nem o recordset

Private Sub Command2_Click()
    Set rsTab = New ADODB.Recordset
   
    ssql = "select * from cad_cida_cidade"
   
    rsTab.Open ssql, sCnx, adOpenDynamic, adLockBatchOptimistic
   
    While Not rsTab.EOF
        Me.List1.AddItem Trim(rsTab.Fields(1).Value) & "-" & rsTab.Fields(2).Value
        rsTab.MoveNext
    Wend
    Set Me.MSHFlexGrid1.DataSource = rsTab
   
    rsTab.Close
   
    Set rsTab = Nothing
End Sub

 

tenta abrir so o recordset

Set me.Adodc1.Recordset = New ADODB.Recordset
me.Adodc1.Recordset.Open ssql, sCnx, adOpenDynamic, adLockBatchOptimistic

não deu certo

post seu codigo todo ai pra mim ver ou me adicione no messeger que te ajudo

acg1574@hotmail.com

Private Sub Form_Load()    
     With Adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Banco.mdb;Mode=Read;Persist Security Info=False"
        .RecordSource = "Select * from Tab1"
    End With
End Sub