Optimeret søgning i Db

Er der nogen der kan sige mig om man kan sige mig om man kan gøre denne søgning i Db smartere

Jeg skal finde 4 forskellige felter i Db, som ikke ligge i samme række.

    Sub BtnSPLommeHent_Click(sender As Object, e As EventArgs)
    Dim SPL1, SPL2, SPL3, SPL4 as string
   
        if TxtSPLae1Resultat.text =("Gennemgående") then
            TxtSPLo1Resultat.text = ("Gennemgående")
        else
            SPL1 = "Select Tekst from velcrolomme where " & txtAreal.text & " between Areal_fra and Areal_til and " & TxtSPLae1Resultat.text & " between Laengde_fra and Laengde_til;"
            ObjConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=test.mdb")
            ObjComm = New OleDbCommand(SPL1, objConn)
           
            ObjConn.Open()
            ObjRs = objComm.ExecuteReader()
           
            While ObjRs.Read()
            TxtSPLo1Resultat.text = objrs("tekst")
            End While
           
            ObjRs.Close()
            objConn.Close()
        end if
       
        SPL2 = "Select Tekst from velcrolomme where " & txtAreal.text & " between Areal_fra and Areal_til and " & TxtSPLae2Resultat.text & " between Laengde_fra and Laengde_til;"
       
        ObjConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=test.mdb")
        ObjComm = New OleDbCommand(SPL2, objConn)
       
        ObjConn.Open()
        ObjRs = objComm.ExecuteReader()
       
        While ObjRs.Read()
            TxtSPLo2Resultat.text = objrs("tekst")
        End While
       
        ObjRs.Close()
        objConn.Close()
       
        SPL3 = "Select Tekst from velcrolomme where (" & txtAreal.text & " between Areal_fra and Areal_til) and (" & TxtSPLae3Resultat.text & " between Laengde_fra and Laengde_til);"
       
        ObjConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=test.mdb")
        ObjComm = New OleDbCommand(SPL3, objConn)
       
        ObjConn.Open()
        ObjRs = objComm.ExecuteReader()
       
        While ObjRs.Read()
            TxtSPLo3Resultat.text = objrs("tekst")
        End While
       
        ObjRs.Close()
        objConn.Close()
       
        SPL4 = "Select Tekst from velcrolomme where " & txtAreal.text & " between Areal_fra and Areal_til and " & TxtSPLae4Resultat.text & " between Laengde_fra and Laengde_til;"
       
        ObjConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=test.mdb")
        ObjComm = New OleDbCommand(SPL4, objConn)
       
        ObjConn.Open()
        ObjRs = objComm.ExecuteReader()
       
        While ObjRs.Read()
            TxtSPLo4Resultat.text = objrs("tekst")
        End While
       
        ObjRs.Close()
        objConn.Close()
   
    end Sub