Question updating access db problem

[caitjim]

Hi all,
i am using to followin code to connect to a db and update it.

Dim objConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =db1.mdb")
    Dim da As New OleDb.OleDbDataAdapter("Select * from Members", objConnection)
    Dim cb As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(da)
    Dim ds As New DataSet()
    Dim rowIndex As Integer = 0
    Dim inc As Integer

    Public Sub FillOwnerDetails()
        Dim objRow
        objRow = ds.Tables("Members").Rows.Find(cboMembers.SelectedItem.ToString)
        txtCardNo.Text = objRow.Item("Card_No")
        txtSurname.Text = objRow.Item("Surname")
        txtFirst_Name.Text = objRow.Item("First_Name")
    End Sub

    Private Sub Members2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        retrieve()
    End Sub

    Public Sub retrieve()
        ds.Clear()
        da.FillSchema(ds, SchemaType.Source, "Members")
        da.Fill(ds, "Members")
        cboMembers.Items.Clear()

        Dim i As Integer, strCurrentID As String
        For i = 1 To ds.Tables("Members").Rows.Count
            strCurrentID = ds.Tables("Members").Rows(i - 1).Item("Card_No")
            cboMembers.Items.Add(strCurrentID)
        Next
        cboMembers.SelectedIndex = 0
        FillOwnerDetails()
    End Sub

    Private Sub cboMembers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboMembers.SelectedIndexChanged
        FillOwnerDetails()
    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        ds.Tables("Members").Rows(inc).Item(1) = txtFirst_Name.Text
        ds.Tables("Members").Rows(inc).Item(2) = txtSurname.Text
        da.Update(ds, "Members")
        MsgBox("Data updated")
    End Sub

However, I am getting the following error:

Syntax error (missing operator) in query expression '(((? = 1 AND Surname IS NULL) OR (Surname = ?)) AND ((? = 1 AND First_Name IS NULL) OR (First_Name = ?)) AND ((? = 1 AND Title IS NULL) OR (Title = ?)) AND (Card_No = ?) AND ((? = 1 AND Address_1 IS NULL) OR (Address_1 = ?)) AND ((? = 1 AND Address_2 IS N'.

Please help!! need to sort it quickly!
Thanks guys!

 

[caitjim]

someone just pointed out to me that i dont even have a query expression (as stated in the error) in my code! The error is pointing to the line:

da.Update(ds, "Members")

very strange! any ideas???