esto a lo mejor te sirva:
Option Explicit
Private Sub Command1_Click()
Dim Path_base As String
Dim cn As ADODB.Connection
Path_base = App.Path & "\bd1.mdb"
'Crea un nuevo objeto connection
Set cn = New ADODB.Connection
'Cadena de conexión
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path_base & ";" & _
"Persist Security Info=False"
' Abre la conexión a la base bd1
cn.Open
' Elimina la tabla Clientes si es que existe con la instrucción DROP
On Error Resume Next
cn.Execute "DROP TABLE Clientes"
On Error GoTo 0
With cn
' Ejecuta la consulta: Crea la tabla con los tres campos
.Execute "CREATE TABLE Clientes(" & _
"IDCliente INTEGER NOT NULL," & _
"Nombre VARCHAR(40) NOT NULL," & _
"Apellido VARCHAR(40) NOT NULL)"
' Inserta tres registros
.Execute "INSERT INTO Clientes VALUES (1, 'Pedro', 'Gonsales')"
.Execute "INSERT INTO Clientes VALUES (2, 'Martin', 'Rodrigues')"
.Execute "INSERT INTO Clientes VALUES (3, 'MAria', 'Marino')"
'Cierra la conexión
.Close
End With
End Sub