Visual Basic.NET - Extraer fecha de acces para operar

Saludos todos
Tengo un problemita en VB.net
Estoy tratando de sacar una fecha que tengo en una base de datos en access.
Cuando saque esa fecha debo restársela a la fecha actual del sistema.
Si el resultado de dicha diferencia excede a 7 entonces se deben ejecutar varias funciones; de lo contrario, se ejecutarán otras.

El problema radica en que cuando intento sacar la fecha de la base de datos, el formato que me envía es en hora (12:00:00AM). En mi base de datos especifiqué correctamente que quería Fecha corta, y le puse su mascarilla.

Para restar las fechas estoy usando

Dim Prestar As New PrestarLibros
Dim Regresando_Libro As New PrestarLibros
Dim Tiempo_Fuera As Short

' En esta parte pido la fecha que tengo en mi base de datos '
Dim Saber_Tiempo = Prestar.Leer("SELECT Fecha From Prestamo Where Matricula='" + Me.Matricula + "' And Codigo='" + Me.Codigolibro + "'")

' Aquí hago la resta '
Tiempo_Fuera = DateDiff(Microsoft.VisualBasic.DateInterval.DayOfYear, Today, Saber_Tiempo)

Gracias.

verifica la generacion de la fecha asignandosela a una variable y aplicando un formato.

Dim Fecha as Date

Fecha = format(adoFecha, "dd-mm-yyyy")

Saludos