VB 6 Aiuto su Evento Key Press

[buba88]

con l evento keypress nn lo puoi fare perchè le freccette nn sono riconosciute.
lo devi fare col key down

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
data1.recordset.movenext
ElseIf KeyCode = 37 Then
data1.recordset.moveprevious
End If
End Sub

se nn utilizzi il controllo data ma un recordset creato da codice fai cosi

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
nome_recordset.movenext
ElseIf KeyCode = 37 Then
nome_recordset.moveprevious
End If
End Sub

ciao fammi sapere se funziona