“从字符串“夜班结束”到类型“Integer”的转换无效。”这个我查不出来，请帮助

代码如下：

    If (t_now.now > t_daystart) And (t_now.now<t_nightoff) Then
        cmd.CommandText = "Select * From {考勤_夜班记录} Where [姓名] = \'" & User.Name & "\' and [日期] = \'" & t.addDays(-1) & "\'"
        dt = cmd.ExecuteReader
        If dt.DataRows.Count > 0 And dt.DataRows("夜班结束") IsNot Nothing Then
            e.Form.Controls("Label4").text = "您已下夜班打卡"
            e.Form.controls("Button_night").enabledd = False
            e.Form.controls("Button_nightoff").enabledd = False
        Else
            If dt.DataRows.count > 0 And dt.DataRows("夜班结束") Is Nothing Then
                e.Form.controls("Button_day").enabledd = False
                e.Form.controls("Button_dayoff").enabledd = False
                e.Form.controls("Button_night").enabledd = False
                e.Form.controls("Button_nightoff").enabledd = True
            Else
                e.Form.controls("Button_night").enabledd = False
                e.Form.controls("Button_nightoff").enabledd = False
               
            End If
        End If
       
    End If

我想判断夜班结束的打卡是否进行了，如果进行了就提示已完成打卡，如果没进行就将当时的时间作为打卡记录，然后提示夜班下班打卡完成

 查到的，有可能是多行，你取第几行？

 If dt.DataRows.Count > 0 And dt.DataRows(0)("夜班结束") IsNot Nothing Then