Выдает ошибку "элемент не обнаружен в данном семействе"

If Me.Список58.RowSource = "Таблица;Поле;Значение" Then Exit Sub
 
Dim sq$, fv, sv$, i&, db As DAO.Database, fl As DAO.Field
Dim Res()
Dim n, j, k, l
Dim tmp, s
Dim y, x As Integer
 
 
    s = Split(Me.Поле45, ";")
    
    n = UBound(s, 1)
    ReDim Res(0 To n + 1)
    Res(0) = s(0)
    j = 1
    For i = 1 To n
        tmp = s(i)
        k = 0
        For l = 0 To j
            If tmp = Res(l) Then
               k = -1
               Exit For
            End If
        Next l
        If k = 0 Then
           j = j + 1
           Res(j) = tmp
        End If
     Next i
     ReDim Preserve Res(0 To j)
 
  If UBound(Res, 1) = 1 Then
    sq = "SELECT * FROM [" & Res(0) & "] WHERE True"
    
        Set db = CurrentDb
    If Len(Me!Список21.RowSource) > 0 Then
    fv = Split(Me!Список21.RowSource, ";")
        For Each fl In db.TableDefs(Me!Поля.RowSource).Fields
        sv = ""
        For i = 0 To UBound(fv) Step 2
            If fl.Name = fv(i) Then
            Select Case fl.Type
                Case dbBigInt, dbBoolean, dbByte, dbCurrency, dbDecimal, _
                 dbDouble, dbFloat, dbInteger, dbLong, dbNumeric, dbSingle
                sv = sv & "," & Replace(fv(i + 1), ",", ".")
                Case dbChar, dbText
                sv = sv & ",'" & fv(i + 1) & "'"
                Case dbDate
                sv = sv & ",#" & Format(CDate(fv(i + 1)), "mm\/dd\/yyyy") & "#"
            End Select
            End If
        Next
        If Len(sv) > 0 Then sq = sq & " And [" & fl.Name & "] In (" & Mid(sv, 2) & ")"
        Next
    End If
  
  Else
    sq = "SELECT * FROM Адреса INNER JOIN [" & Res(0) & "] ON Адреса.Улица=[" & Res(0) & "].Улица "
    For i = 2 To UBound(Res, 1)
    sq = sq & "INNER JOIN [" & Res(i) & "] ON Адреса.Улица=[" & Res(i) & "].Улица "
    Next i
    sq = sq & "WHERE "
    
        Set db = CurrentDb
    If Len(Me!Список60.RowSource) > 0 Then
    fv = Split(Me!Список60.RowSource, ";")
        [COLOR="Red"]For Each fl In db.TableDefs(Me!Список60.RowSource).Fields[/COLOR]
        sv = ""
        For i = 0 To UBound(fv)
            If fl.Name = fv(i) Then
            Select Case fl.Type
                Case dbBigInt, dbBoolean, dbByte, dbCurrency, dbDecimal, _
                 dbDouble, dbFloat, dbInteger, dbLong, dbNumeric, dbSingle
                sv = sv & "," & Replace(fv(i), ",", ".")
                Case dbChar, dbText
                sv = sv & ",'" & fv(i) & "'"
                Case dbDate
                sv = sv & ",#" & Format(CDate(fv(i)), "mm\/dd\/yyyy") & "#"
            End Select
            End If
        Next
        If Len(sv) > 0 Then sq = sq & " And [" & fl.Name & "] In (" & Mid(sv, 2) & ")"
        Next
    End If
        
        
    
  End If

debug.print sq
me..........=sq