首先在引用中引用Microsoft ado ext. 2.8 for ddl and security
语句如下:
Dim StrFileName As String
Dim StrNewFileName As String
StrFileName = "D:/" & "Wo" & CStr(Format(Date, "yyyymmdd")) & CStr(Format(Time, "yyyymmdd"))
StrNewFileName = StrFileName & ".mdb"
Dim catNewDBWo As New ADOX.Catalog
catNewDBWo.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrNewFileName & ";"
Set catNewDBWo = Nothing