求助各位大师：
   怎样用VB6.0删除access数据库中ID号=text1的记录？数据库名称为：用户信息，表名为：用户表，字段和datagrid1显示的一样。

delete * from 用户表 where ID=val(text1)

语法错误啊

我先用查询语句
SQL="SELECT * from 用户表 where ID=' " & val(text1) & "'"

Adodc1.recordsource=SQL
Adodc1.refresh
，然后Adodc1.Recordset.Ddlete

    Dim cn As New ADODB.Connection
    Dim cnStr As String, rsStr As String
   
    cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户信息.mdb;Jet OleDb:DataBase Password=1234"

    rsStr = "delete * from 用户表 where ID=" & val(text1)
    cn.Open cnStr
    cn.Execute rsStr

    cn.Close

应该比较简单
1、使用ADO对象删除,Access 2007 以上版本数据库

Private Sub Command1_Click()
If Val(Text1.Text) < 1 Then
    MsgBox "你没有输入需要删除的ID号，请填写！", 16, "无法删除！"
    Exit Sub
End If
Dim cn As New ADODB.Connection, RS As New ADODB.Recordset
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\用户信息.accdb;Jet OLEDB:Database Password=;"
RS.Open "Select * From 用户表 where ID=" & Val(Text1.Text) & "", cn, 3, 2
RS.Delete   '删除指定记录
RS.Close
cn.Close
    MsgBox "数据表用户表中ID=" & Val(Text1.Text) & "的记录已经删除！", 64, "删除成功！"
End Sub

2、使用ADO控件删除,Access 2007 以上版本数据库

Private Sub Command2_Click()
If Val(Text1.Text) < 1 Then
    MsgBox "你没有输入需要删除的ID号，请填写！", 16, "无法删除！"
    Exit Sub
End If
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\用户信息.accdb;Jet OLEDB:Database Password=;"
Adodc1.RecordSource = "Select * From 用户表 where ID=" & Val(Text1.Text) & ""
Adodc1.Recordset.Delete   '删除指定记录
Adodc1.Recordset
    MsgBox "数据表用户表中ID=" & Val(Text1.Text) & "的记录已经删除！", 64, "删除成功！"
End Sub

[此贴子已经被作者于2020-7-11 12:24编辑过]

测试成功，非常感觉你的帮助。

感谢你的帮助，测试没能通过，可能是我的VB是精简版的原因。