Hola ke tal tengo un problema estoy realizando un programa donde guardo los registros en una Base pero kiero respaldarlo enotra o sea komo un Guardar como y despues en otro boton limpiar esa Base cuando alla respaldado. espero y puedan ayudarme gracias

Pues lo unico que veo es que hagas un respaldo, y en lugar de limpiar base de datos, pues no se a que te refieras exactamente, yo opinaria que la eliminaras y la volvieras a crear

Y para crear Bases desde tu programa exta el adox


aqui te dejo un ejemplo que hice ya hace un tiempo

Código:

Dim cat As New ADOX.Catalog
Dim tbl(32) As New ADOX.Table


Private Sub Command2_Click()
nom = ""
nom = InputBox("Escribe el nombre de la base de datos", "Crear Base")
If nom <> "" Then
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source=" & App.Path & "\" & nom & ".mdb;"


cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "\" & nom & ".mdb;"
For i = 1 To 32
With tbl(i)
 .Name = i
 .Columns.Append "ID", adInteger
 .Columns.Append "Nombre", adVarWChar, 255
 .Columns.Append "Check", adVarWChar, 1
 
 .Columns("Nombre").Attributes = adColNullable
 .Columns("Check").Attributes = adColNullable


End With
cat.Tables.Append tbl(i)
Next
nom = App.Path & "\" & nom & ".mdb"
MsgBox nom, , "Creada Satisfactoriamente en:"
End If
End Sub

Recuerda primero dar de alta en Proyecto, Referencias y me parce que es Microsoft Ado Ext X.X no recuerdo la version pero ya con el code te puedes dar una idea y crear tus propias bases desde tu programa ok?