请教关于DAO问题！达人请来！

Question

Public Sub LoadData(strTemp As String)
    If strTemp = "我的好友" Then  
       Exit Sub
    End If
    rs1.FindFirst (strTemp)
    Dim i As Integer
    For i = 0 To 26
        If Not IsNull(rs1.Fields(i)) Then
           Text1(i) = rs1.Fields(i)
        Else
           Text1(i) = ""
        End If
    Next
    Text1(27) = Text1(0)
End Sub

Answer 1

出现一个时时错误：3070JET 数据库引擎不能将‘###’识别为一个有效的字段名或表达式即在rs1.FindFirst (strTemp)时出现问题！253 一个先

Answer 2

FindFirst是要指名字段的啊，所有你写错了。    If strTemp = "我的好友" Then  
       Exit Sub
    End If
    rs1.FindFirst "FieldName = '"& strTemp &"'"