Private Sub Command1_Click()'需要引用Microsoft ADO Ext......
If Dir(App.Path & "\db1.mdb")"" Then Kill App.Path & "\db1.mdb"
Dim Cata As New ADOX.Catalog
Cata.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=" & Text1.Text
Set Cata = Nothing
'以上是...
Dim strCon As String strCon = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\mmpoc.mdb" & "" Set con = New ADODB.Connection con.Open strCon End Sub 问题大概出在...
楼上的应该也可以，不过我这个是自己用过的，你可以试试：Dim cnn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim strS$'连接ACCESS数据库
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Connec...
