Something like this? You will need to include references to ADODB and ADOX (Microsoft ADO and MS ADO Extensions) to make it work
VB Code:
Private Sub CreateDatabase(ByVal FileName As String)
Dim Cat As New ADOX.Catalog()
Dim objTable As ADOX.Table
Cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FileName & ";" & _
"Jet OLEDB:Engine Type=5")
'Create storage for the version numbers.
objTable = New ADOX.Table()
objTable.Name = "tblVersions"
With objTable.Columns
'Store the version number of the application version that is saving
'this file.
.Append("CurrentVersion", adWChar)
'Store the version number of the oldest application version that is
'capable of reading this file.
.Append("EarliestVersion", adWChar)
End With
Cat.Tables.Append(objTable)
End Sub