成贵高铁站点有哪些:请教高手vb问题!!!!!

以下一段代码,运行的时候出现错误
实时错误'91'
对象变量或with块变量未设置

Public Function opendb(strtype As String, str As String) '打开数据库函数
If rs.State = 1 Then
rs.Close
End If

If rs2.State = 1 Then '报错:实时错误'91' 对象变量或with块变量未设置

rs2.Close

End If

Select Case strtype
Case "open"
rs.Open "select cdnum,cdinfo,cddate from cdnum order by cdnum", conn, adOpenStatic, adLockOptimistic
Case "find"
rs.Open str, conn, adOpenStatic, adLockOptimistic
Case "creat"
rs2.Open "select * from cdnum where cdnum=""" & str & """", conn, adOpenStatic, adLockOptimistic
Case "scan"
rs.Open "select * from cd where id=NULL", conn, adOpenStatic, adLockOptimistic
Case "delcd"
rs2.Open "delete * from cdnum where cdnum=""" & str & """", conn, adOpenStatic, adLockOptimistic
rs2.Open "delete * from cd where cdnum=""" & str & """", conn, adOpenStatic, adLockOptimistic
Case "delfile"
rs2.Open "delete * from cd where filename=""" & str & """", conn, adOpenStatic, adLockOptimistic
End Select

End Function

我明天就要把这东西交上去了，哪个高手帮帮忙啊...感激不尽啊
还有这一段代码,运行是报错说是 实时错误'35613' 在ImageList可以使用之前必须将它初始化
If Not rs.EOF And Not rs.BOF Then
Do Until rs.EOF
Set tmpnode = Form1.trecd.Nodes.Add(, tvwFirst, , rs.Fields(0), 1, 1) '在这里报错说 实时错误'35613' 在ImageList可以使用之前必须将它初始化
If rs.Fields(1) <> "." Then
tmpnode.Tag = rs.Fields(2) & " " & vbCrLf & rs.Fields(1)
Else
tmpnode.Tag = rs.Fields(2)
End If
rs.MoveNext
Loop
End If

高手们帮帮忙啊