Comparar fechas

[asandicr89]

Muchas gracias RamirezMario7.
Lo resolví de la siguiente manera:

Código:

Private Function mostrar()
        Dim fechaAct As Date
        Dim comando As SqlCommand
        Dim comando2 As SqlCommand
        Dim cadenaSQL As String
        Dim cadenaSQL2 As String
        Dim registros As SqlDataReader
        Dim registros2 As SqlDataReader

        fechaAct = DateTime.Now.AddDays(-2)

        cadenaSQL = "SELECT * FROM xInvcAssign WHERE INVCNBR = '" & TextBox2.Text & "' "
        comando = New SqlCommand(cadenaSQL, conectar)
        registros = comando.ExecuteReader

        Do While registros.Read
            If registros("User7") >= fechaAct Then
                conectar.Close()
                conectar.Open()
                cadenaSQL2 = "update xInvcAssign set status = 'NE', carrierstat = 'NA', carrierid = '" & TextBox1.Text & "' where invcnbr = '" & TextBox2.Text & "' "
                comando2 = New SqlCommand(cadenaSQL2, conectar)
                registros2 = comando2.ExecuteReader
                MessageBox.Show("La factura '" & TextBox2.Text & "' está en mostrar ruta para el transportista: '" & TextBox1.Text & "'")
            Else
                MsgBox("La fecha de la factura no cumple con los requerimientos", MsgBoxStyle.Exclamation)
            End If
            TextBox1.Clear()
            TextBox2.Clear()
        Loop
        Return 0
    End Function

a la fecha actual le reste 2 días.