[Resolvido] Mudar o nome das colunas do DataGrid

Tenho forms com DataGrid os dados que aparecem neles vem direto do BD e aparece os nomes das colunas do BD como faço pra aparecer o nome que eu colocar em cada campo que vier do banco ao invés dos nomes da colunas do BD ?

Esse é o código que eu uso pra trazer do banco e preencher o DataGrid.

Private Sub preenche_grid()
With cmd
.ActiveConnection = Conex
.CommandType = adCmdText
.CommandText = "select nome As nome from clientes"
End With
With rs
Set DataGrid1.DataSource = rs
End With

End Sub