主题：错误提示

 Dim _datetime = _date1.AddDays(1)        

        Dim  _str2 = "select * from tbl_kq_dkjl where 工號='" & gh & "'  and 日期='" & _datetime & "' and 時間>='23:00:00' and 時間<='23:59:59' and 機器類型='考勤機' order by 時間"        

        Dim cmd As New SQLCommand

        cmd=new SQLCommand

        cmd.ConnectionName=conn

        cmd.CommandText=_str2

        Dim dt As DataTable

        dt=cmd.ExecuteReader

        tb.Rows(i)("上班1")= dt.GetComboListString("時間")