Here's an example of emptying a database and adding one record:

Dim dbMenu As Database
Dim rsMenu As Recordset

Set dbMenu = OpenDatabase("E:\EasyHID\Xk1 v2\USBProject\VisualBASIC\Modified code\NR2003.mdb")
Set rsMenu = dbMenu.OpenRecordset("SELECT * FROM tblMenu")

If Not rsMenu.EOF Then
rsMenu.Delete
End If

rsMenu.AddNew
rsMenu!ptrMenu = 1
rsMenu!RecordType = "1"
rsMenu.Update

Robert