为何不能删除ACCESS表中的数据？

Question

Private Sub Command18_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim StrSql As String
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=;data source=" & App.Path & "\208client.mdb"
StrSql = "delete 208client where cInstallPhone = '" & Trim$(DataCombo6.Text) & "'"
rs.Open StrSql, cnn, adOpenKeyset, adLockBatchOptimistic
End If
End Sub提示
实时错误，'-2147217900 (80040e14)':
语法错误（操作符丢失），在查询表达式'208client where cInstallPhone = '7777777''中。

Answer 1

StrSql = "delete 208client where cInstallPhone = '" & Trim$(DataCombo6.Text) & "'"
rs.Open StrSql, cnn, adOpenKeyset, adLockBatchOptimistic
End If改为：
StrSql = "delete from [208client] where cInstallPhone = '" & Trim$(DataCombo6.Text) & "'"
cnn.execute strsql

Answer 2

Private Sub Command18_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim StrSql As String
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=;data source=" & App.Path & "\208client.mdb"
StrSql = "delete 208client where cInstallPhone = '" & Trim$(DataCombo6.Text) & "'"
cnn.execute strsql
End If
End Sub

Answer 3

Private Sub Command18_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim StrSql As String
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=;data source=" & App.Path & "\208client.mdb"
StrSql = "delete from 208client where cInstallPhone = '" & Trim$(DataCombo6.Text) & "'"
cnn.execute strsql
End If
End Sub
你可以看一下你的sql 语句

Answer 4

把你的sql语句抓出来到T-sql里面试一下，就可以看到是什么出错，也能看到形响到多少条记录。这个方法很好用。

Answer 5

这肯定是SQL语句出错啊，你要学会调试错误啊
where cInstallPhone ='"&trim(DataCombo6.text) &"'