urgent !!! plz help

hi i am having problem updating data in the database i am using Access 2003 i have given the code below please tell me where im going wrong. if u need any more information plz let me know Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim cnt, c1, sn1, n1, c2, l, val0, val1, val4 As Integer Dim sn, v As Array Dim anyRow As DataRow = DataSet181.Att.NewRow Dim val2, val3 As String OleDbDataAdapter2.SelectCommand.CommandText = "Select * from Att where S_ID =" & TextBox1.Text & " and A_Program='" & ComboBox2.Text & "' and A_Date is null" DataSet191.Clear() OleDbDataAdapter2.Fill(DataSet191) cnt = DataSet191.Att.Rows.Count If cnt <> 0 Then OleDbDataAdapter2.SelectCommand.CommandText = "Select S_ID,A_Session,A_Date,A_Class,A_Fees,A_Program,A_Remarks,A_ID from Att where S_ID=" & Val(TextBox1.Text) & " and A_Program='" & ComboBox2.Text & "' and A_Date is null" DataSet111.Clear() OleDbDataAdapter2.Fill(DataSet111) val0 = DataSet111.Att.Rows(0).Item(0) val1 = DataSet111.Att.Rows(0).Item(1) val2 = DataSet111.Att.Rows(0).Item(4) val3 = DataSet111.Att.Rows(0).Item(5) val4 = Val(DataSet111.Att.Rows(0).Item(7)) OleDbDataAdapter2.UpdateCommand.CommandText = "UPDATE Att SET S_ID =" & val0 & ", A_Session=" & val1 & ", A_Date='" & DateTimePicker1.Text & "', A_Class ='" & ComboBox1.Text & "', A_Program ='" & val2 & "', A_Fees ='" & val3 & "', A_Remarks ='" & TextBox3.Text & "' WHERE A_ID =" & val4 OleDbDataAdapter2.Update(DataSet191) DataSet121.Clear() OleDbDataAdapter2.SelectCommand.CommandText = "Select S_ID,A_Session,A_Date,A_Class,A_Fees,A_Program,A_Remarks,A_ID from Att where S_ID=" & Val(TextBox1.Text) & " and A_Program='" & ComboBox2.Text & "'" OleDbDataAdapter2.Fill(DataSet121, "Att") Else DataSet171.Clear() OleDbDataAdapter2.SelectCommand.CommandText = "Select A_Session from Att where S_ID =" & Val(TextBox1.Text) & " and A_Program ='" & ComboBox2.Text & "'" DataSet171.Clear() OleDbDataAdapter2.Fill(DataSet171) c1 = DataSet171.Att.Rows.Count c1 = c1 - 1 sn = DataSet171.Att.Rows(c1).ItemArray sn1 = sn(1) + 1 anyRow("S_ID") = Val(TextBox1.Text) anyRow("A_Session") = sn1 anyRow("A_Date") = DateTimePicker1.Text anyRow("A_Class") = ComboBox1.Text anyRow("A_Program") = ComboBox2.Text DataSet181.Att.Rows.Add(anyRow) OleDbDataAdapter2.InsertCommand.CommandText = "INSERT into Att(S_ID,A_Session,A_Date,A_Class,A_Program)VALUES(?,?,?,?,?)" OleDbDataAdapter2.Update(DataSet181) OleDbDataAdapter2.SelectCommand.CommandText = "Select S_ID,A_Session,A_Date,A_Class,A_Fees,A_Program From Att where S_ID =" & Val(TextBox1.Text) & " and A_Program ='" & ComboBox2.Text & "'" DataSet121.Clear() OleDbDataAdapter2.Fill(DataSet121) End If End Sub