debes acer una conexxion tipo ado algo asi:
Dim base As New ADODB.Connection
Dim tabla As ADODB.Recordset
Private Sub Elimina_Click()
'command
'base.Execute "delete from Tabla" ' elimina registros
base.Execute "drop table Tabla" 'elimina tabla
End Sub
Private Sub Form_Load()
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and Settingslab1-3Mis documentosejemplo.mdb;Persist Security Info=False"
End Sub
Private Sub Form_Unload(Cancel As Integer)
base.Close
End Sub