what is the 3251 error number in following code, it generated while adding new data?

[bhavika123456]

Private Sub cmdadd_Click()
cmbempid.Text = ""
optabsent.Value = False
optlatemark.Val ue = False
optapprove.Valu e = False
optdisapp.Value = False
txtlname.Text = ""
'txttotal.Text = ""
rs.AddNew
If Not rs.EOF Then
rs.MoveNext
End If
'rs.Close
cmbempid.SetFoc us
cmdcancel.Enabl ed = True
cmddelete.Enabl ed = False
cmdexit.Enabled = True
cmdsave.Enabled = True
cmdmodify.Enabl ed = False
cmdfirst.Enable d = False
cmdlast.Enabled = False
cmdnext.Enabled = False
cmdprevious.Ena bled = False
'substring = " insert into muster (Emp_id,Absent_ date,"
'rs.Update
End Sub

[lotus18]

[CODE=vb]Private Sub cmdadd_Click()
cmbempid.Text = ""
optabsent.Value = False
optlatemark.Val ue = False
optapprove.Valu e = False
optdisapp.Value = False
txtlname.Text = ""
'txttotal.Text = ""
rs.AddNew
If Not rs.EOF Then
rs.MoveNext
End If
'rs.Close
cmbempid.SetFoc us
cmdcancel.Enabl ed = True
cmddelete.Enabl ed = False
cmdexit.Enabled = True
cmdsave.Enabled = True
cmdmodify.Enabl ed = False
cmdfirst.Enable d = False
cmdlast.Enabled = False
cmdnext.Enabled = False
cmdprevious.Ena bled = False
'substring = " insert into muster (Emp_id,Absent_ date,"
'rs.Update
End Sub[/CODE]

I don't see the value of adding new data. Check your codes again

Rey Sean

[CyberSoftHari]

It is very difficult to guide you. You have to post a part of code and explain about your problem in detail.