錯誤 - 標準表達式中的數據類型不匹配

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 

請刪除"'"並使用上面的代碼。