Visual Basic - Obtener fechas mas cercana

Mi problema es el siguiente:

Tenemos un textbox llamado "fecha"(20/3/2007), el que comparamos con una tabla historica "P_Historica" que contiene varios registros (codigo, nombre, fecha).
Ejm

Historica.
fechas
01/01/2006
31/03/2006
20/07/2006
03/04/2007
30/05/2007

El hecho es que necesitamos comparar entre el textbox y la tabla historica, de manera de obtener de la tabla la fecha menor mas cercana al textbox .

Es decir el resultado a mostrar deberia ser el 20/07/2006

Espero nos puedan ayudar.

Gracias

Una forma que se me ocurre es abir un recordset mediante una sentencia de comparación de fecha igual o menor a la indicada en el TextBox y el ultimo registro sería el buscado.

Algo así:

"Select * From P_Historica Where fecha <= #" & TxtFecha.Text & "# Order by fecha"

y después de abierto el recordset:
MiRs.MoveLast
MsgBox "La fecha mas cercana es " & MiRs!Fecha

Nota: los separadores de fecha varían en función de la base de datos que estés utilizando, los indicados en el ejemplo son para una BD Access.

Natalia, muchas gracias tu respuestas nos soluciono el problema.