private sub check_date()Dim cdat1, cdat2 As Date cdat1 = CType(txtFrom.Text, Date) cdat2 = CType(txtTo.Text, Date) If cdat1.CompareTo(cdat2) > 0 Then MessageBox.Show("Please select valid dates") Exit Sub End Ifend sub