consulta

[banrey]

ya lo acomode gracias por la contestar

pero ayudame con otra cosita ahora:

resolvi todo con un list1 alli se mustran los resultados de la consulta

pero quiero sacar los resultados de forma ascendente y descendente lo hago asi :

Private Sub Command4_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT nombre,apellido,cedula,edad,sexo From pacientes group by nombre asc", BD, adOpenStatic, adLockOptimistic
If RecSQL.EOF Then
MsgBox "No hay ningún registro en la base de datos", vbExclamation
Else
RecSQL.MoveFirst
Do Until RecSQL.EOF
campo2 = ""
campo2 = campo2 & " " & RecSQL.Fields(0) & " " & RecSQL.Fields(1) & " " & RecSQL.Fields(2) & " " & RecSQL.Fields(3) & " " & RecSQL.Fields(4)
List1.AddItem campo2
RecSQL.MoveNext
Loop
End If
End Sub

trabaja bien pero quiero que al hacer click en este boton q llame ascendete me limpie los la pantalla para poder mostrarme los datos solamente por que el problema que tengo es que me muestra los resultados debajo de otros que anteriormente consulto