Dim rs As ADODB.Recordset
   Dim bFieldName As Boolean
   Dim bFieldDefault As Boolean
 
   bFieldName = False
   bFieldDefault = False
 
   Set rs = OpenRecordset("SHOW FIELDS FROM " + sTable)
 
   While Not rs.EOF
 
      If rs.Fields("Field").Value = sFieldName Then
 
         bFieldName = True
         If rs.Fields("Default").Value = sFieldDefault Then
            bFieldDefault = True
         End If
 
      End If
 
      If bFieldName = True And bFieldDefault = True Then
         bOk = False
         rs.MoveLast
      End If
 
      rs.MoveNext
   Wend