POPOLARE LA DATAGRID
codice:
SQL = "SELECT * FROM TEST"
    
With Rs
    .ActiveConnection = Conn
    .CursorLocation = adUseServer
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Properties("IRowsetIdentity") = True
    .Open SQL, , , , adCmdText
End With

Set dgr_test.DataSource = Rs