Prints only the first value it finds in recordset

Question

I am trying to make a select in firebird according to the value it has in an excel range.

I use a for to go through the column, I only have a problem printing the select, it only prints the first value it finds. I appreciate your help

  Dim F As New ADODB.Recordset
    vDB = Ws.Range("a1").CurrentRegion
For i = 2 To UBound(vDB, 1)
Set F = con.Execute("SELECT EXISTENCIA FROM CATINVEN WHERE PRODUCTO = '" & vDB(i, 2) & "'  ")
           Worksheets("1").Cells(3, 2).CopyFromRecordset F