Hi, I'm new to VB so please be patient with me. In my contact members program I'm using the following code to keep records on Form1 and Form2 together,

Private Sub datCocMembers_Reposition()
frmFamily.datFamily.Recordset.MoveFirst
Do Until frmFamily.datFamily.Recordset("MemberID") = datCocMembers.Recordset("MemberID")
frmFamily.datFamily.Recordset.MoveNext
Loop
End Sub

This works great except now when I go to AddNew record I get the following error message,

Runtime 3021, no current record.

My code to AddNew records is, data1.recordset.AddNew

Please help,
newvbr