[vba]

#Const EarlyBound = False 'if using early binding

'----------------------------------------------------------------
Sub CreateAccessDatabase(DBPath As String)
'----------------------------------------------------------------
#If EarlyBound Then
Dim oADOCat As ADOX.Catalog

Set oADOCat = New ADOX.Catalog
#Else
Dim oADOCat As Object

Set oADOCat = CreateObject("ADOX.Catalog")

#End If

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

Set oADOCat = Nothing
End Sub
[/vba]