ADO e MovePrevious [VB6]

[abellos]

Ciao,
mi sono connesso ad un DB access con questo codice:

modulo
Global Conn As New ADODB.Connection
Global RS As New ADODB.Recordset

form1
pulsante indietro
Private Sub Command1_Click()
If Not RS.BOF Then
    RS.MovePrevious  <------------------------- ERRORE 3219???
    Text1.Text = RS("data")
    Text2.Text = RS("nFattura")
    Text3.Text = RS("id_cliente")
    Text4.Text = RS("dataScad")
    Text5.Text = RS("dataPag")
    Text6.Text = RS("idTipoPag")
End If
End Sub

pulsante avanti
Private Sub Command2_Click()
If Not RS.EOF Then
    RS.MoveNext
    Text1.Text = RS("data")
    Text2.Text = RS("nFattura")
    Text3.Text = RS("id_cliente")
    Text4.Text = RS("dataScad")
    Text5.Text = RS("dataPag")
    Text6.Text = RS("idTipoPag")
End If
End Sub

Private Sub Form_Load()
    Command1.Caption = "<< Indietro"
    Command2.Caption = "Avanti >>"
    
    Path = App.Path & "\fatture.mdb"
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path
    Conn.Open
    RS.ActiveConnection = Conn
    SQL = "SELECT * FROM t_fattureEmesse"
    RS.Open SQL
    Text1.Text = RS("data")
    Text2.Text = RS("nFattura")
    Text3.Text = RS("id_cliente")
    Text4.Text = RS("dataScad")
    Text5.Text = RS("dataPag")
    Text6.Text = RS("idTipoPag")
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    RS.Close
    Conn.Close
End Sub

quando vado avanti con i record funziona benissimo, ma quando torno indietro si blocca sull'istruzione RS.MovePrevious??? perchè? anche andando all'ultimo record fa questo errore?
Grazie dell'aiuto e ciauzz

[xegallo]

controlla che il recordset non sia frwardonly

[ladyBlu]

prova modificare questa parte di codice del Form_Load:

Path = App.Path & "\fatture.mdb"
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path
Conn.Open

SQL = "SELECT * FROM t_fattureEmesse"
RS.Open SQL, Conn, 1, 3

l'errore è questo... dalla guida MSDN:
adErrIllegalOperation 3219 - 0x800A0C93
L'operazione richiesta dall'applicazione non è consentita nel contesto corrente.
non riesce a leggere il recordset...:master:

[ale500]

fai una cosa del genere magari in un modulo:

Public conn As New ADODB.Connection
Public rec As New ADODB.Recordset

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\source.mdb;"
conn.CursorLocation = adUseClient
conn.Open

poi

rec.Open "select * from tipo", conn, adOpenDynamic, adLockPessimistic

una cosa del genere...:gren: