Dim conn As New ADODB.Connection
Dim db As New ADODB.Recordset
Dim com As New
Dim mmm As String
Dim sql As String
mmm = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=boos1;Data Source=BENQ"
conn.ConnectionString = mmm
conn.Open mmm
sql = "delete from LD2 WHERE 路单号=" & Text4.Text'text4.text为LD100000
db.CursorLocation = adUseClient
db.Open sql, conn, adOpenKeyset, adLockPessimistic
db.Close
conn.Close
Set db = Nothing
Set conn = Nothing
错误提示:'LD100000'无效

sql = "delete from LD2 WHERE 路单号=" &  "' " & Text4.text & "' "

感谢高手的帮助.谢谢!

可是我没能删除掉表中记录.是不是我写的程序不正确啊?

db.Open sql, conn, adOpenKeyset, adLockPessimistic
改为
conn.Execute sql
试一下

sql = "delete from LD2 WHERE 路单号=" & "'" & Text4.Text & "'"
好像是' 后面多加了一个空格
你把上面这句复制过去再运行试试.

多谢帮助.上面两种方法都正确!回复晚了请原谅!正确代码:
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim db As New ADODB.Recordset
Dim com As New
Dim mmm As String
Dim sql As String
mmm = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=boos1;Data Source=BENQ"
conn.ConnectionString = mmm
conn.Open mmm
sql = "delete from LD2 WHERE 路单号=" & "'" & Text1.Text & "'"
db.CursorLocation = adUseClient
db.Open sql, conn, adOpenKeyset, adLockPessimistic'也可以是 conn.Execute sql
'次处本向写  db.close   但会提示出错
conn.Close
Set db = Nothing
Set conn = Nothing
End Sub