Dim myAttendanceSql As String = "SELECT * FROM AN_CheckInOut WHERE Mem_EmpID = '" & Trim(Me.txtID.Text) & "' AND DateIn = " & Date.Today Dim myAttendanceDA As New SqlDataAdapter(myAttendanceSql, myConn.oAdoNetSql_Conn) Dim myAttendanceCB As New SqlCommandBuilder(myAttendanceDA)It return 0 rows if I included the date in the query. and no errors!