首先在引用中引用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.CatalogcatNewDBWo.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrNewFileName & ";"Set catNewDBWo = Nothing
原文链接：https://www.f2er.com/vb/261214.html