SoloCodigo

Estoy accediendo a una tabla en access que yo mismo cree, y he descubierto que access me a modificado el orden de los registros en esta.
   Yo introduje los datos de mayor a menor, y access me los revolvio todos. Para mi es muy importante que esten ordenados, ya que yo necesito encontrar los datos anterior y posterior al valor que estoy buscando. Por ejemplo si tengo la siguinte tabla:

1
2
3
4
5
Entonces mando al programa a que busque el valor de 2.5, como este valor no esta en tabla el debe mandarme los valores extremos, osea, 2 y 3. Aqui les pongo un pedazo del codigo que estoy utilizando para esto.

   Private Sub Command2_Click()
    Dim SearchCriteria
    RAN = (Text7.Text + 273.15) * 1.8
    SearchCriteria = RAN
    menor = SearchCriteria
    igual = SearchCriteria
    If Trim$(SearchCriteria) <> "" Then
      SearchCriteria = "TEMPERATURA> '" + SearchCriteria + "'"
       menor = "TEMPERATURA< '" + menor + "'"
        igual = "TEMPERATURA= '" + igual + "'"
      Data1.Recordset.FindFirst SearchCriteria
      Data3.Recordset.FindLast menor
        Data4.Recordset.FindFirst igual
        If Text5.Text <> SearchCriteria Then
            Text5.Text = RAN
            Text6.Text = ""
        End If
        t3 = Text2.Text
        t1 = Text4.Text
        h3 = Text1.Text
        h1 = Text3.Text
        t2 = Text5.Text
        pr1 = Text8.Text
        pr3 = Text10.Text
        h2 = ((h3 - h1) / (t3 - t1)) * (t2 - t1) + h1
        pr2 = ((pr3 - pr1) / (t3 - t1)) * (t2 - t1) + pr1
        Label2.Caption = h2
        Text6.Text = h2
        Text9.Text = pr2
    End If