How to solve Run Time Error 3021 when Saved Data first time in Access 2003 Database

Hi,

When i am entered Data in VB form First time and then Click on Save Button then it is show Run Time Error 3021- Either EOF or BOF is True or the Current Record has been Deleted! i am using Access 2003 as database.

if i am putting data in directly to Access Database and then go to vb form and entered a second Data and Save it then it is ok. But if i am create a new database and entered a new fresh data entry in vb form and it is not saved, Why it should be happened? Please help me..............................................
Codes are mention below,,,,

Private Sub cmdSave_Click()

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Store Inventary\Data\Customer.mdb;Persist Security Info=False"

Dim rs As New ADODB.Recordset

If rs.State = 1 Then rs.Close
rs.Open "select * from CustMaster", cn, adOpenStatic, adLockOptimistic, adCmdText

If rs.EOF = False Then
rs.AddNew
End If

rs.Fields("CustID") = TxtCustID.Text
rs.Fields("Catg") = cboCatg.Text
rs.Fields("CustName") = txtCustName.Text
rs.Fields("conper") = txtConper.Text
rs.Fields("Add") = txtAdd.Text
rs.Fields("Area") = txtArea.Text
rs.Fields("City") = cboCity.Text
rs.Fields("Pin") = txtPin.Text
rs.Fields("State") = cboState.Text
rs.Fields("Std") = txtCode.Text
rs.Fields("ph1") = txtPhone1.Text
rs.Fields("ph2") = txtPhone2.Text
rs.Fields("mob1") = txtMobile1.Text
rs.Fields("Email") = txtmail.Text
rs.Fields("Pan") = txtPan.Text
rs.Fields("cntry") = txtCtry.Text
rs.Fields("mob2") = txtMobile2.Text
rs.Fields("date") = txtDate.Text
rs.Fields("Rem") = txtRem.Text

rs.Update
rs.Requery
clearall Me
rs.MoveNext

cn.Close

cmdAdd.Enabled = True
cmdDelet.Enabled = False
cmdModify.Enabled = False
cmdCancel.Enabled = False
cmdBack.Enabled = True
VSFlexGridCust.Enabled = True
frmCustMas.Enabled = True

FillflexGrid

CustMaster.Enabled = True

Set rs = Nothing
Set cn = Nothing

End Sub


Please help me

I am using the same code in other vb form which is working ok it is saved data exactly...................