要删除数据库中的一行数据，可以使用DELETE语句。以下是一个示例：

Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\yourdatabase.accdb;"rs.Open "SELECT * FROM your_table WHERE id = 1", conn, adOpenKeyset, adLockOptimisticIf Not rs.EOF Thenrs.Deleters.UpdateMsgBox "Row deleted successfully"ElseMsgBox "Row not found"End Ifrs.Closeconn.CloseSet rs = NothingSet conn = Nothing

在上面的示例中，我们首先打开一个连接到数据库的连接，然后使用SELECT语句选择要删除的行。如果找到了该行，则使用rs.Delete删除该行，然后使用rs.Update将更改保存到数据库中。如果未找到该行，则显示相应的消息。最后，关闭记录集和连接，并清除对象引用。