Visual Basic - Obtener menor valor en bd

Estimados tengo una tabla en una bd y necesito cuyo campo es Tiempo, necesito que a medida que cargo nuevo datos me muestre el menor valor cargado, yo he usado este codigo pero no funciona correctamente.
Agradesco toda la ayuda.

Private Sub VtaRapida(sPista, sNombre)

Dim dbbuscar As Database
Dim rsbuscar As Recordset
Dim sTiempo As String

Set dbbuscar = OpenDatabase("C:\GCSFM\Slot.mdb")
Set rsbuscar = dbbuscar.OpenRecordset("SELECT TpoVuelta FROM Carrera WHERE Nombre = ('" & sNombre & "' )AND Pista =('" & sPista & " ') ORDER BY TpoVuelta ASC")

With rsbuscar

rsbuscar.MoveFirst
sTiempo = !TpoVuelta
Call Record(sTiempo, sPista)

End With

rsbuscar.Close
dbbuscar.Close

End Sub

prueba convirtiendo el valor a ordenar

WHERE Nombre = ('" & sNombre & "' )AND Pista =('" & sPista & " ') ORDER BY val(TpoVuelta) ASC")

SELECT TOP 1 TpoVuelta FROM Carrera WHERE Nombre = ('" & sNombre & "' )AND Pista =('" & sPista & " ') ORDER BY TpoVuelta ASC