pessoal, por que Datagrind, não mosta o conteudo da tabela de o cursolocation for adUseServer?
Set TB_Depend = New ADODB.Recordset
TB_Depend.CursorLocation = adUseClient
TB_Depend.CursorType = adOpenStatic
TB_Depend.LockType = adLockOptimistic
TB_Depend.Open "SELECT * from DEPEND WHERE CLIE_Cod=" + Text1 + ";", Cnn
Set DataGrid2.DataSource = TB_Depend