Visual Basic - COMO PUEDO ORDENAR UNA TABLA

En el load del formulario yo hago lo siguiente despues de abrir la base de datos:

Set Tabla = Base.openrecordset(\"select * from personas order by nombre\")

y me ordena la tabla por nombre, pero luego yo tengo un botón en el formulario para buscar por nombre, apellido1, apellido2 como puedo buscar por ejemplo por apellido1 si la tabla se abre ordenada por nombre me podeis escribir un ejemplo para cambiar el orden y poder buscar?

Gracias.

Hazte un if:
If [Nombre] then
Set tabla=base.openrecordset ("SELECT * FROM personas ORDER BY nombre")
elseif [apellido1] then

Set tabla=base.openrecordset ("SELECT * FROM personas ORDER BY apellido1")

else

Set tabla=base.openrecordset ("SELECT * FROM personas ORDER BY apellido2")

end if

Yo creo que es la manera mas logica

Te puedes hacer un desplegable con todos los campos de tu tabla, cuando la despliegues al hacer click en uno de los campos y se lo pasas como parametro a la Select que tienes y en el ORDER BY pones una variable para recoger dicho valor, asi con la misma SQL te servira para todas las ordenaciones que quieras hacer. Esta SQL se ejecutara cara vez que hagas el click. (Harias un evento el cual seleciona y ejecuta la Select.)

-----Esto se hace en ADO-----

Dim var As String
Dim sSQL as String

Private Sub Combo1_Click()
var = Combo1.Text
sSQL="SELECT * FROM TuTabla OREDER BY '" & var & "'"
Set erro = New ADODB.Recordset
erro.Open sSQL, LOG.ActiveConnection
Set DataGrid1.DataSource = erro
End Sub

-------Otra forma es:
Tiene la B.D. conectada y te seria suficiente con pasar la variable.

erro.Sort = var & " ASC"

Esto que te comento lo tengo funcionado con ADO como te he comentado.

Suerte.