public Function FieldExist( TableName as String, FieldName as String ) as _
  Boolean
  Dim SelectString as String = String.Format( "SELECT * FROM {0}", TableName)
 
  Using MyAdapter as New OleDbDataAdapter( SelectString, ConnectionString )
    Dim Tab as New DataTable()
    MyAdapter.FillSchema( Tab, SchemaType.Source )
    if( Tab.Columns.Contains( FieldName ) Then
      return true
  End Using
  return false
End Function