エラー - 条件式のデータ型の不一致

Question

ds.Clear() 
     connString = provider & datafile 
     con.ConnectionString = connString 
     con.Open() 
     sqlstatement = "SELECT * FROM CustomerInfo WHERE ID = '" & UserbeingEdited & "'" 
     ds.Clear() 
     da = New OleDb.OleDbDataAdapter(sqlstatement, con) 
     da.Fill(ds, "EDITING") 
     con.Close() 
     Dim recordCount, x As Short 
     recordCount = 0 
     x = 0 
     recordCount = ds.Tables("EDITING").Rows.Count 

私のデータベースのユーザーを編集する際に問題が発生しました。これは、EditUserフォームがロードされるときのコードです。エラーが発生します。助けてください！

Answer 1

sqlstatement = "SELECT * FROM CustomerInfo WHERE ID = " & UserbeingEdited 

"'"を削除し、上記のコードを使用してください。