Private Sub Command1_Click()Dim db As DatabaseDim rs As RecordsetSet db = OpenDatabase(App.Path & "mysystem\db1.mdb")Set rs = db.OpenRecordset("select * from gui")lable1.Caption = rs.Fields(1) & ""End Sub系统提示can't load msjter35.dll!!!
參考答案:msjter35.dll是微软Microsoft Jet数据库引擎相关文件
知道你的错误了吗？
其实你的代码没有错误。是你的系统缺少msjter35.dll，或者是msjter35.dll没有注册！
注册msjter35.dll试下！