在出现对象变量或with快变量未设置这样应该如何处理啊

Question

rivate Sub Form_Load()
    Dim i As Integer
    i = 0
    txtSQL = "select * from usertypes"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
        If mrc.EOF = False Then
            i = i + 1
            txtUserName.AddItem Trim(mrc!UserName)
            mrc.MoveNext
        End If
       txtUserName.ListIndex = i - 1
    mrc.Close
    miCount = 0
End Sub
时时的出现对象变量或with快变量未设置这样应该如何处理啊