Знайти помилку в коді Visual Basic

Знайти помилку в коді та підкоригувати код  , помилка зазначена в рядка 1, 2 

Dim sourceDB As Database

Dim destDB As Database

Dim tblDef As TableDef

Dim RS As Recordset

Dim fld As Field

Dim strSQL As String

Dim newSQL As String

Dim skipColumns As String

Set sourceDB = OpenDatabase("C:\Program Files\out.mdb", False, False, ";PWD=555")

Set destDB = OpenDatabase("C:\Program Files\in.mdb", False, False, ";PWD=555")

For Each tblDef In sourceDB.TableDefs

    If Not (tblDef.Name Like "MSys*" Or tblDef.Name Like "~*") Then ' ignore system tables

        strSQL = "SELECT * FROM " & tblDef.Name

        Set RS = sourceDB.OpenRecordset(strSQL)

        newSQL = "INSERT INTO " & tblDef.Name & " ("

             skipColumns = ""

              t = 0

        For Each fld In RS.Fields

            If Not tblDef.Fields(fld.Name) Is Nothing Then ' field exists in destination table

                newSQL = newSQL & "[" & fld.Name & "], "

            Else ' field doesn't exist in destination table

                skipColumns = skipColumns & "[" & fld.Name & "], "

            End If

        Next fld

        newSQL = Left(newSQL, Len(newSQL) - 2) & ") VALUES ("

        ' add parameters for columns that exist in destination table

        For Each fld In tblDef.Fields

            newSQL = newSQL & "?, "

        Next fld

        newSQL = Left(newSQL, Len(newSQL) - 2) & ")"

              ' insert records into destination table

        RS.MoveFirst

        Do Until RS.EOF

           Dim qdf As QueryDef

            Set qdf = destDB.CreateQueryDef("", newSQL)

'  запит "INSERT INTO Aktyvni ([Nomer], [Spivrobitnyk], [Zarer], [Vyjshov], [Admin], [Nomer_kom]) VALUES (?, ?, ?, ?, ?, ?)"            

' 1___________________Таблиця запиту qdf не має стопців, які переносяться з запиту

          Dim i As Integer

            i = 0

            For Each fld In RS.Fields

                If Not tblDef.Fields(fld.Name) Is Nothing Then ' ïîëå ³ñíóº â òàáëèö³ ïðèçíà÷åííÿ

    '2_____________________ і на цьому моменті вибиває помилку                                             

                                         qdf.Parameters(i) = fld.Value

                End If

                i = i + 1

            Next fld

            qdf.Execute

            RS.MoveNext

        Loop

        RS.Close

        If Len(skipColumns) > 0 Then ' some columns were skipped

            MsgBox "Skipped columns in table " & tblDef.Name & ": " & Left(skipColumns, Len(skipColumns) - 2)

        End If

    End If

Next tblDef

sourceDB.Close

destDB.Close