Getting Problem when I write code :-
Private Sub Form_Load()
deleting = False

connect
Label2.Caption = "Record " + CStr(currentRecord) + " of " + CStr(rec.RecordCount)


If Not rec.EOF Then

Text3.Text = rec.Fields(1).Value
Text2.Text = rec.Fields(2).Value
Text12.Text = rec.Fields(3).Value
Text13.Text = rec.Fields(4).Value
End If
End Sub

It gives error in :-

Private Sub Command8_Click() 'save button
rec.AddNew

rec.Fields(1) = Text3.Text
rec.Fields(2) = Text2.Text gives error
rec.Fields(3) = Text12.Text
rec.Fields(4) = Text13.Text
rec.Update
MsgBox "record stored"
currentRecord = currentRecord + 1
Label2.Caption = "Record " + CStr(currentRecord) + " of " + CStr(rec.RecordCount)
End Sub

If I use :-

[/B]Private Sub Form2_Load()[/B]
deleting = False

connect
Label2.Caption = "Record " + CStr(currentRecord) + " of " + CStr(rec.RecordCount)


If Not rec.EOF Then

Text3.Text = rec.Fields(1).Value
Text2.Text = rec.Fields(2).Value
Text12.Text = rec.Fields(3).Value
Text13.Text = rec.Fields(4).Value
End If
End Sub

It Gives error in :-

Private Sub Command8_Click() 'save button
rec.AddNew gives error here

rec.Fields(1) = Text3.Text
rec.Fields(2) = Text2.Text
rec.Fields(3) = Text12.Text
rec.Fields(4) = Text13.Text
rec.Update
MsgBox "record stored"
currentRecord = currentRecord + 1
Label2.Caption = "Record " + CStr(currentRecord) + " of " + CStr(rec.RecordCount)

End Sub

Please tell me where I am wrong?