Visual Basic - NO se encontro el elemento en esta coleccion Access

/*Me dice No se encontro el elemento en esta coleccion en RS2!Desc y mas adelante tambien */

    OpenRS ("select * from productos") /*esta rutina la tengo en un .BAS*/

    Set RS2 = DAO.Recordset

    While Not RS.EOF

        Set RS2 = DB.OpenRecordset("select sum(cant) as iCant from pedidos_b where fec=" & _

        CDbl(dtpFec.Value) & " and cod='" & RS!Cod & "'")

            If RS2!iCant > 0 Then

                grid.Rows = grid.Rows + 1

                grid.Row = grid.Rows - 1

                grid.Col = 1: grid.Text = RS2!Desc

                grid.Col = 2: grid.Text = RS2!marca

                grid.Col = 3: grid.Text = RS2!rubro

                grid.Col = 4: grid.Text = RS2!iCant

            End If

        RS.MoveNext

    Wend

/*Que esta mal?   tuve este problema hace unos años y lo solucione, perdi el archivo lo siento*/

While Not RS.EOF

    Set RS2 = DB.OpenRecordset("select sum(cant) as iCant from pedidos_b where fec=" & _

    CDbl(dtpFec.Value) & " and cod='" & RS!cod & "'")

        If RS2!iCant > 0 Then

            Dim X As Integer

            Dim Y As Integer

            X = RS2!iCant

            Set RS2 = DB.OpenRecordset("select * from pedidos_b where fec=" & _

            CDbl(dtpFec.Value) & " and cod='" & RS!cod & "'")

            grid.Rows = grid.Rows + 1

            grid.Row = grid.Rows - 1

            grid.Col = 1: grid.Text = RS2!desc

            grid.Col = 2: grid.Text = RS2!marca

            grid.Col = 3: grid.Text = RS2!rubro

            grid.Col = 4: grid.Text = X

            Y = Y + X

        End If

    RS.MoveNext

Wend