Hi guys i got vba code that suppose to write table name ,column name , rquired ,feild type and feild size
to an external db. The first part of this code write tables naem to external db and it is working well.
I get the following error when i press the button on my form :

Code:
Run-time error '424':

Object required
and when i click on debut it points to this part with yellow collor.

Code:
 metadb.Execute " Insert Into SysColumns(tablename,columnname,required,type,lenght) " & _
    " Values ('" & TableDef.Name & "','" & Feild.Name & "'," & Feild.Required & ",'" & FieldType(Feild.Type) & "'," & Feild.Size & ")"
I be happy if some one help me fix this erro.Thanks

my complete code

Code:
Sub InsertSystemCatalogPopulation(db As Database, metadb As Database)

'''now locating all the non system tables in current db  and then writing it
'''to systables table
For Each tbl In db.TableDefs

''' excluding the system tables
        If Left(tbl.Name, 4) <> "MSys" Then
        ''' writing the tables name to systables
        
            metadb.Execute " Insert Into SysTables(TableName) Values ('" & tbl.Name & "')"
        End If
    Next tbl
    
    MsgBox (" All tables names coped to systables system cataloge ")
    
  '''###################################################################################
    
    ''' now we go find all non syste feilds in the current db and then writing ity
    '''  to syscolumns
    
    For Each TableDef In CurrentDb.TableDefs
'''this if statment remove the system feilds
 If Left(TableDef.Name, 4) <> "Msys" Then
   For Each Field In TableDef.Fields
     
    metadb.Execute " Insert Into SysColumns(tablename,columnname,required,type,lenght) " & _
    " Values ('" & TableDef.Name & "','" & Feild.Name & "'," & Feild.Required & ",'" & FieldType(Feild.Type) & "'," & Feild.Size & ")"
     
    Next Field
  End If
Next TableDef

End Sub




Function FieldType(intType As Integer) As String

    Select Case intType
        Case dbBoolean
            FieldType = "dbBoolean"
        Case dbByte
            FieldType = "dbByte"
        Case dbInteger
            FieldType = "dbInteger"
        Case dbLong
            FieldType = "dbLong"
        Case dbCurrency
            FieldType = "dbCurrency"
        Case dbSingle
            FieldType = "dbSingle"
        Case dbDouble
            FieldType = "dbDouble"
        Case dbDate
            FieldType = "dbDate"
        Case dbText
            FieldType = "dbText"
        Case dbLongBinary
            FieldType = "dbLongBinary"
        Case dbMemo
            FieldType = "dbMemo"
        Case dbGUID
            FieldType = "dbGUID"
    End Select

End Function