Dou um "select" com "order by" e jogo os resultados numa DataGrid. Mas queria que quando clicasse no título de cada campo na DataGrid que o "order by" se alterasse para que a ordem passasse a ser pelo campo onde foi dado o clique.

 

Por exemplo, está ordenado por nomes e clico no campo "sobrenome", aí eu gostaria que ficasse ordenado pelo sobrenome e não mais pelo nome.

Ponha no eveto HeadClick do Datagrid:

 

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Adodc1.Recordset.Sort = Adodc1.Recordset.Fields(ColIndex).Name

End Sub

Não precisa alterar nada neste código, apenas o nome do controle ADODC o resto é constante.

 

Caso não esteja usando o controle vinculado é só colocar o nome de seu Recordset ao invés de adodc1, Rs_recordset.sort

 

Belz?

Para conexão eu uso:

 

Public cnn As New ADODB.Connection

cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:Meus documentoslamalama.mdb"

 

 

E na RecordSet eu uso:

 

Dim rst As New ADODB.Recordset

rst.Open "SELECT * from tabela1", cnn, adOpenKeyset, adLockOptimistic

 

 

E colocando o código, mesmo com alguns nomes modificados não está indo.

Bom, sua conexão é igual à minha, agora diz aí, como vc está colocando o Código do HeadClick ? e como vc está inserindo os dados no DataGrid ?

Declaro no form:

Seu código deve ficar assim: