ciao sono un po' novello ed ho alcuni problemi a caricare il risultato di una query in una datagrid...mi spiego, se cerco di caricare i dati in una flexgrid nn ci sono problemi, ma la datagrid mi rimane inesorabilmente vuota..il mio codice e' questo, dove sbaglio???

Dim db_conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset

' Apro una connesisone al DB
Set db_conn = New ADODB.Connection
db_conn.ConnectionString = "driver={SQL Server};server=********;uid=********;database=**** ****"
' db_conn.ConnectionTimeout = 30
db_conn.Open

' Estraggo i dati dal DB
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select IDAnagrafica, NomeCliente FROM unianagr", db_conn, adOpenStatic, adLockReadOnly, adCmdText

' Metto i dati ottenuti dalla query nella flexgrid
Set MSHFlexGrid1.DataSource = rs


' 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

vi prego aiutatemi, grazie