Ordenar datagrid ?

[principefreddy]

Private Sub Text6_Change()
If Text6 <> "" Then
Adodc1.Recordset.Filter = "cedula like '*" + Text6 + "*'"
Else
Adodc1.Recordset.Filter = ""
Set DataGrid1.DataSource = Adodc1.Recordset
Adodc1.Recordset.MoveFirst
End If
End Sub

estos son los codigos para filtrar en el data utilizando ado... ahora como hago para que me los ordene por cedula.?????????????????