editing listview using change button

[firoz.raj]

can anybody tell me why i got syntax error(missing operator) in query expression'ID='; here is the code what i have written.any help would be greatly appreciated.

Private Sub Command2_Click()
If CheckInput = True Then
    Dim success As Boolean
    Set con = New ADODB.Connection
    success = OpenConnection(con)
 If success = False Then
      MsgBox ("Cannot Open Connection")
      Exit Sub
End If
Set rs = New ADODB.Recordset
rs.Open "select * from supplierS where ID=" & Text1.Text, con, adOpenDynamic, adLockOptimistic
 If rs.BOF And rs.EOF Then rs.AddNew
 ' rs.Fields("Supplier_id") = Text1.Text
   rs.Fields("Supplier_name") = Text2.Text
   rs.Fields("contact_person") = Text3.Text
   rs.Fields("contact_no") = Text4.Text
   rs.Fields("office_address") = Text6.Text
   rs.Fields("emails") = Text7.Text
   rs.Fields("website") = Text8.Text
   rs.Fields("Fax_no") = Text5.Text
   rs.Fields("item_type") = Combo1.Text
   rs.Update
   MsgBox ("data saved")
   rs.Close
 Else
   Exit Sub
End If
con.Close
Set con = Nothing
End Sub