[RESOLVED] access table update code

in my asp.net+vb+access database web. i have a page with three text boxes coy,coyrmk,rmkdt i want to update the same through web page. i sued the foloiwng code

Protected Sub add_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles add.Click
        Dim con As New OleDbConnection
        con.ConnectionString = ConfigurationManager.ConnectionStrings("baijuepConnectionString").ConnectionString
        con.Open()
        Dim qstr As String
        qstr = "update auth set coy=@coy,coyrmk=@coyrmk where coy=@coy"
        Dim oledbcom As New OleDbCommand(qstr, con)
        oledbcom.Parameters.Add(New OleDbParameter("@coy", OleDbType.VarChar).Value = Label5.Text)
        oledbcom.Parameters.Add(New OleDbParameter("@coyrmk", OleDbType.VarChar).Value = rmk.Text)
        oledbcom.Parameters.Add(New OleDbParameter("@rmkdt", OleDbType.Date).Value = rmkdt.Text)
        oledbcom.ExecuteNonQuery()
        Page.ClientScript.RegisterStartupScript(Me.GetType, "Forms", "")
    End Sub

error comes as 

The OleDbParameterCollection only accepts non-null OleDbParameter type objects, not Boolean objects

Try something like below:

oledbcom.Parameters.Add(New OleDbParameter("@coy", OleDbType.VarChar))
 oledbcom.Parameters["@coy"].Value = Label5.Text
 oledbcom.Parameters.Add(New OleDbParameter("@coyrmk", OleDbType.VarChar))
 oledbcom.Parameters["@coyrmk"].Value = rmk.Text
 oledbcom.Parameters.Add(New OleDbParameter("@rmkdt", OleDbType.Date))
 oledbcom.Parameters["@rmkdt"].Value =Convert.ToDateTime(rmkdt.Text)

TRIED NOT WORKING

I WANT TO UPDATE AN EXISTING DATA

In your SQL, you're only using 2 parameters (@coy and @coyrmk), but you add 3 parameters. However, this shouldn't cause any problem, but most likely, I think your query is wrong, because coy will always keep the same value, only coyrmk will be updated....

I want to update coyrmk and rmkdt only all others will remain same

Baiju EP

I want to update coyrmk and rmkdt only all others will remain same

qstr = "update auth set coyrmk=@coyrmk,rmkdt=@rmkdt where coy=@coy"
        Dim oledbcom As New OleDbCommand(qstr, con)
        oledbcom.Parameters.AddWithValue("coyrmk", rmk.Text)
        oledbcom.Parameters.AddWithValue("rmkdt", rmkdt.Text)
        oledbcom.Parameters.AddWithValue("coy", Label5.Text)
        oledbcom.ExecuteNonQuery()