要删除数据库中的一行数据，可以使用DELETE语句。以下是一个示例：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\yourdatabase.accdb;"
rs.Open "SELECT * FROM your_table WHERE id = 1", conn, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
rs.Delete
rs.Update
MsgBox "Row deleted successfully"
Else
MsgBox "Row not found"
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
在上面的示例中，我们首先打开一个连接到数据库的连接，然后使用SELECT语句选择要删除的行。如果找到了该行，则使用rs.Delete删除该行，然后使用rs.Update将更改保存到数据库中。如果未找到该行，则显示相应的消息。最后，关闭记录集和连接，并清除对象引用。
