Dim db As Database
Dim rs As Recordset
Dim mysql As String
Set db = OpenDatabase(App.Path & "\database.mdb", False, False, "")
mysql = "select * from datas "
Set rs = db.OpenRecordset(mysql, dbOpenDynaset)这样应该没问题的
Dim rs As Recordset
Dim mysql As String
Set db = OpenDatabase(App.Path & "\database.mdb", False, False, "")
mysql = "select * from datas "
Set rs = db.OpenRecordset(mysql, dbOpenDynaset)这样应该没问题的
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货