Dim myAttendanceSql As String = "SELECT * FROM AN_CheckInOut WHERE Mem_EmpID = '" & Trim(Me.txtID.Text) & "' AND DateIn = '" & Date.Today.ToString() & "'"Also keep in mind that SQL Server uses DateTime and not just Date. Therefore your DateIn expression must match both the date portion and the time portion exactly.
>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) >>