我有一个错误对象引用未设置为对象的实例

Question

这是代码行;

   With sParser1
        .Fields = "*"
        .Table = "tbl_timeentry"
        .SortOrder = "ID"
        .wCondition = "memberID = '" & Mid(memID, 2) & "' and datelog = '" & dteDateIn1 & "' and empstatus = '" & "IN" & "'"
   End With

   sqlDR1 = MySQLHelper.ExecuteReader(ConStringLoc, CommandType.Text, sParser1.MySQLStatement)
   sqlDR1.Read()
   Application.DoEvents()

   If sqlDR1.HasRows = True Then

   Else
      msgboxautoclose("You cannot do this transaction", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Prompt", 1)
      memID = Nothing
   End If

消息框关闭后发生错误