' Metto i dati ottenuti dalla query nella datagrid
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "Select IDAnagrafica, NomeCliente, Indirizzo FROM unianagr", db_conn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs1
Nelle proprietà della grid - colonne - hai impostato la proprietà DataField con il nome del campo, (IDAnagrafica),(NomeCliente),
ciao