Private Sub Command2_Click()

 
    Dim Rs As ADODB.Recordset
    Dim Sql As String
    Dim MsgTxt As String
    Dim NR1 As String
    Dim RQ1 As String
   
    If List3.ListIndex = -1 Then Exit Sub

RQ1 = List1.List(List3.ListIndex)

NR1 = List2.List(List3.ListIndex)

 Sql = "delete * from MYBOOK where RQ=RQ1"
                Set Rs = ExecuteSQL(Sql, MsgTxt)
                
                If InStr(MsgTxt, "错误") Then
                    MsgBox MsgTxt, vbCritical, "错误提示"
                    Exit Sub
                End If
               Text1.Text = ""
              
                i = List3.ListIndex
                  List1.RemoveItem i
                  List2.RemoveItem i
                  List3.RemoveItem i
                    
End Sub

说明ACCESS数据库就2个字段，分别是RQ和NR

[此贴子已经被作者于2017-6-4 12:29编辑过]

Sql = "delete * from MYBOOK where RQ=RQ1"
这句错了，RQ1是变量，组合进行需要 使用字符串连接运算。
另外，sql命令里的值，需要根据字段类型加上对应的符号。

两个字段都是备注类型，应当怎么修改，确实是这句话错了，就是不明白如何修改

“delete * from MYBOOK where RQ=“ & RQ1

谢谢，可是错误依旧

修改为：Sql = "delete * from MYBOOK where RQ='" & RQ1 & "'"