Error al recorrer una colección

[mart1n]

Hola, que tal.

Estoy intentando recorrer una colección a través de un bucle dentro de una función y me tira object variable or with block variable not set cuando comienza a recorrer el for:


Les dejo el código:

Código (vb) [Seleccionar] Expandir

Public Function CargaGrillaComers(pr As Collection)

Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sSql As String

sSql = ""
        sSql = sSql & "Select * from Comers "
        sSql = sSql & "and Prestamo" & ArmaCadena(pr)

If Conectar() Then
    rs.CursorLocation = adUseClient
    rs.Open sSql, CN
    Set Comers.grGrilla.DataSource = rs
End If

End Function

Código (vb) [Seleccionar] Expandir

Public Function ArmaCadena(COL As Collection)


i = 1

sSql = "" & "in ("

For i = i To COL.Count  --------------------> Aquí me tira el error
     sSql = sSql & COL.Item(i) & ","
Next

sSql = Left(sSql, Len(sSql) - 1)

sSql = sSql & ")"


End Function


Saludos!!

[mart1n]

Ya encontré el error, la variable pr que le pasaba a la funcion armacadena estaba vacía...perdón y gracias!!!