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'无效

感谢高手的帮助.谢谢!

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

多谢帮助.上面两种方法都正确!回复晚了请原谅!正确代码:
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