Private Sub preenche_grid()
With cmd
.ActiveConnection = Conex
.CommandType = adCmdText
.CommandText = "select nome as nome from clientes"
End With
With rs
Set DataGrid1.Columns("nome").Name = "Nome"
End With
End Sub