要刪除數據庫中的一行數據，可以使用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將更改保存到數據庫中。如果未找到該行，則顯示相應的消息。最后，關閉記錄集和連接，并清除對象引用。
