代码求救！在线急等！

Question

出错代码：
rs.Open "select email from shift where  shift='" & lblShift.Caption & "' ", cn
    If Not rs.BOF Then
        If rs("email") <> "" Then strEmail1 = rs("email")
    End If
rs.Close
错误
run-time error '424'
object required

Answer 1

一般就是
 set Cnn = new ADODB.Connection
 set Rs = new ADODB.Recordset

Answer 2

加判断
if not isnull(rs("email")) then strEmail1 = rs("email")

Answer 3

改一下 rs的定义：Dim rs As New ADODB.Recordset
或者：
Dim rs As ADODB.Recordset
然后
Set Rs = new ADODB.Recordset

Answer 4

rs.Open "select email from shift where  shift='" & lblShift.Caption & "' ", cn
    If Not rs.BOF Then
        If rs("email") & "" <> "" Then strEmail1 = rs("email")
    End If
rs.Close