Ho l'errore in oggetto quando tento di riempire un array dal metodo Getrow con ADO e SqlServer.

mio pseduo codice:
codice:
...
    Dim strDBRows() As Variant
Set RS = New ADODB.recordSet
    RS.CursorLocation = adUseServer
    RS.Open TableName, strConn, adOpenForwardOnly, adLockReadOnly
    
        Erase strDBRows()
    strDBRows = RS.GetRows()<<<< errore di memoria insufficiente qui
...
note:
uso vb6 ado e tabelle su Sql Server