'----------------------------------------------------------------
Sub CreateAccessDatabase(DBPath As String)
'----------------------------------------------------------------
Dim oADOCat As Object

Set oADOCat = CreateObject("ADOX.Catalog")

oADOCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DBPath

Set oADOCat = Nothing
End Sub



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Clayman" wrote in message
...
Is it possible to create a new database from Excel using SQL and ADODB? I
cannot create a connection to a file that is not there.
--
Adios,
Clay Harryman