新手上路

为何在以下的Form的Load事件中,运行时提示"类型不匹配"??
书上的例题其实差不多,只是数据库及表的名称变了,谢谢解答Option ExplicitConst DBName As String = "合同管理.mdb"
Dim strPath As String
Dim db As Database
Dim rss As Recordset
Dim strSQl As String
Const MeWidth As Integer = 4800
Const MeHeight As Integer = 3885Private Sub Command1_Click()
Dim rs As Recordset
If Text1.Text = "" Then Exit Sub        'make the search
        strSQl = "SELECT 非标号 FROM 非标相关数据 WHERE 生产工号 LIKE '*" & Text1.Text & "*'"
        Set rs = db.OpenRecordset(strSQl)
        Text2.Text = rs.Fields(1).Value
 
End SubPrivate Sub Form_Load()
strPath = App.Path & "\"
Set db = OpenDatabase(strPath & DBName)
Set rss = db.OpenRecordset("非标相关数据")
End Sub