validar una consulta sql

[oskar5]

hola a todos tengo el siguiente problema,
tengo un programa con el que quiero calcular la diferencia de tiempo entre una fecha-hora y otra fecha-hora de dos campos en elmismo form y tengo la siguiente consulta para verificar si los que acabo de meter son rangos que ya existen en la base de datos... luego de verificar quiero cancelar el proceso de guardado pues para dar un mensaje de advertencia q no se puede guardar y q intenten otra fecha

Código:

Dim strConexion As String
        Dim SQL As String
        Dim msq As New SqlCommand
        Dim reader As SqlDataReader
        Dim fecprog As String
        Dim feconfirm As String

        fecprog = Format(CDate(txtfechaprog.Value), "yyyy-MM-dd hh:mm")
        feconfirm = Format(CDate(txtconfirm.Value), "yyyy-MM-dd hh:mm")

        strConexion = "Server=" & "OSKAR-PC\desarrollo" & ";Initial Catalog=" & "ClinicTurnos" & ";" & "Integrated Security=True;"

        ObjConexionSql = New SqlConnection(strConexion)
       

        SQL = "SELECT FechaProg, FechaConfirm FROM Cirugias WHERE FechaProg >= convert(datetime, '" & fecprog & "', 102) and FechaConfirm <= convert(datetime, '" & feconfirm & "', 102)"

imaginandome entonces como puedo validar esto lo he puesto en un IF pero todo me saca error... no deja guardarlo q es lo que deseo pero se daña todo y saca errores no se que hacer... ayuda no soy tan bueno en esto

Código:

  msq.CommandText = SQL
        msq.Connection = ObjConexionSql
        ObjConexionSql.Open()
        reader = msq.ExecuteReader()

       
        If SQL = False Then
            Exit Sub

        End If