[VB6] Errore "Qualificatore non valido"

[killerbomb]

appena tento di eseguire il seguente sub mi viene restituito : 'qualificatore non valido'
come posso risolvere?

Public Sub riempi(indiceIngr As String)

Dim conn As New ADODB.Connection
Dim rds As New ADODB.Recordset
conn.Open LocaleStringaConnessione

Set rds = conn.Execute("select * from INGRED where CODMAG='" & indiceIngr & "'")
Dim cont As Integer
cont = -1
While rds.EOF = False
    Dim rds2 As New ADODB.Recordset
    Set rds2 = conn.Execute("Select CODART,TIPO,DESCRIZ,QUANT,PREZZO from MOVMAG where CODART='" & rds(1) & "' and TIPO=0")
    While rds2.EOF = False
    cont = cont + 1
        DataGrid1.Row.Add
        DataGrid1.Row(cont).cells(0).Value = rds2(1)
        DataGrid1.Row(cont).cells(1).Value = rds2(3)
        DataGrid1.Row(cont).cells(2).Value = rds2(2)
        Dim qta
       If (rds2(6) < 0) Then
        qta = (rds2(6) * -1) * rds(2)
       Else
        qta = rds2(6) * rds(2)
       End If
        DataGrid1.Row(cont).cells(3).Value = qta
        
    End

End
conn.Close
End Sub

richiamo la sub cosi:

Private Sub Form_Load()
Dim cdart As String
cdart = "cdfa"
Call riempi(cdart)
End Sub