I am receiving the following error when trying to edit information entered in a database.
Additional information: Syntax error (missing operator) in query expression 'Item ID =1'.
Can anyone help? Thanks
Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
'check for the selected item in list
If Me.dgvData.Rows.Count > 0 Then
If Me.dgvData.SelectedRows.Count > 0 Then
Dim intItemID As Integer = Me.dgvData.SelectedRows(0).Cells("Item ID").Value
'Get the data from database followed Item ID
'Open the connection
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If
'Get the data into the datatable
Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Product " & _
" WHERE Item ID =" & intItemID, cnn)
Dim dt As New DataTable
da.Fill(dt)
Me.txtItemID.Text = intItemID
Me.txtItemName.Text = dt.Rows(0).Item("Item Name")
Me.cboItemType.Text = dt.Rows(0).Item("Item Type")
Me.txtQuantity.Text = dt.Rows(0).Item("Quantity")
Me.txtMinShelfStock.Text = dt.Rows(0).Item("Min Shelf Stock")
Me.txtPurchasePrice.Text = dt.Rows(0).Item("Purchase Price")
Me.txtNote.Text = dt.Rows(0).Item("Note")
'
'Hide the ID to be edited in TAG of txtItemID in case ID is changed
Me.txtItemID.Tag = intItemID
'Change the add button to update
Me.btnAdd.Text = "Update"
'Disable the Edit button
Me.btnEdit.Enabled = False
'Close the connection
cnn.Close()
End If
End If
End Sub