[求助]连接数据库出错
Option Explicit
Dim mydb As Database
Dim myrs As Recordset
Dim SQL As String
为什么运行到红色字体的时候出现错误.错误信息:Dim mydb As Database
Dim myrs As Recordset
Dim SQL As String
Private Sub cmdOK_Click()
Dim Mob As Long
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\rsda.mdb")
SQL = "select * from 手机归属地"
Set myrs = mydb.OpenRecordset(SQL)
End Sub
实时错误'13'
类型不匹配
请各位帮忙指点,非常感谢!
[此贴子已经被作者于2007-1-1 13:43:08编辑过]
没人帮忙吗?
可惜就是看到我头都大了