hi my name is vishal. i am an amatuer in vb6. i have been using flat scroll bar to view all previously edited datas . now i am getting run-time error 3021 when i am using flat scroll bar displaying a message "my previously entered data has been deleted and recordset movelast is true.
i have tried some code to fix it but no success. Can anyone help me please! Any help would be appreciated. my code is below.

Private Sub Form_Load()
Dim x As Integer
cboVirology.AddItem "Positive"
cboVirology.AddItem "Neutral"
Set rstt = New ADODB.Recordset
rstt.Open "Reprocess", adoDatabase, adOpenKeyset, adLockOptimistic, adCmdTable
FlatScrollBar2.Max = rstt.RecordCount
End Sub


Private Sub FlatScrollBar2_Change()
rstt.MoveFirst
rstt.Move FlatScrollBar2.Value

txtMName.Text = rstt("ManufacturerName").Value
txtMName.Enabled = False
txtMSno.Text = rstt("MFR_SL_NO").Value
txtMSno.Enabled = False
cboVirology.Text = rstt("volume").Value
cboVirology.Enabled = False

End Sub