Conectar a BD access desde delphi 6

[Giniromero]

he mirado y no, no tengo nada en esos eventos. ¿algo en la configuración del objeto?
Estoy usando un TADOQuery, pero tambien he probado con TADODataSet.

Esto es lo que tengo:

object TbADOAsisImport: TADOQuery
  Active = True
  Connection = ADOBDHyperion
  CursorType = ctStatic
  Parameters = <>
  SQL.Strings = (
    'select  *  from asistencias_todo'
    'order by codigo')
  Left = 544
  Top = 152
  object TbADOAsisImportcodigo: TAutoIncField
    FieldName = 'codigo'
    ReadOnly = True
  end
  object TbADOAsisImportgrupo: TIntegerField
    FieldName = 'grupo'
  end
  object TbADOAsisImportfecha: TWideStringField
    FieldName = 'fecha'
    Size = 50
  end
  object TbADOAsisImportnumalu1: TWideStringField
    FieldName = 'numalu1'
    Size = 50
  end
  object TbADOAsisImportasistencia1: TWideStringField
    FieldName = 'asistencia1'
    Size = 50
  end
  object TbADOAsisImportnumalu2: TWideStringField
    FieldName = 'numalu2'
    Size = 50
  end
  object TbADOAsisImportasistencia2: TWideStringField
    FieldName = 'asistencia2'
    Size = 50
  end
  object TbADOAsisImportnumalu3: TWideStringField
    FieldName = 'numalu3'
    Size = 50
  end
  object TbADOAsisImportasistencia3: TWideStringField
    FieldName = 'asistencia3'
    Size = 50
  end
  object TbADOAsisImportnumalu4: TWideStringField
    FieldName = 'numalu4'
    Size = 50
  end
  object TbADOAsisImportasistencia4: TWideStringField
    FieldName = 'asistencia4'
    Size = 50
  end
  object TbADOAsisImportnumalu5: TWideStringField
    FieldName = 'numalu5'
    Size = 50
  end
  object TbADOAsisImportasistencia5: TWideStringField
    FieldName = 'asistencia5'
    Size = 50
  end
  object TbADOAsisImportnumalu6: TWideStringField
    FieldName = 'numalu6'
    Size = 50
  end
  object TbADOAsisImportasistencia6: TWideStringField
    FieldName = 'asistencia6'
    Size = 50
  end
  object TbADOAsisImportnumalu7: TWideStringField
    FieldName = 'numalu7'
    Size = 50
  end
  object TbADOAsisImportasistencia7: TWideStringField
    FieldName = 'asistencia7'
    Size = 50
  end
  object TbADOAsisImportnumalu8: TWideStringField
    FieldName = 'numalu8'
    Size = 50
  end
  object TbADOAsisImportasistencia8: TWideStringField
    FieldName = 'asistencia8'
    Size = 50
  end
  object TbADOAsisImportnumalu9: TWideStringField
    FieldName = 'numalu9'
    Size = 50
  end
  object TbADOAsisImportasistencia9: TWideStringField
    FieldName = 'asistencia9'
    Size = 50
  end
  object TbADOAsisImportnumalu10: TWideStringField
    FieldName = 'numalu10'
    Size = 50
  end
  object TbADOAsisImportasistencia10: TWideStringField
    FieldName = 'asistencia10'
    Size = 50
  end
  object TbADOAsisImportnumalu11: TWideStringField
    FieldName = 'numalu11'
    Size = 50
  end
  object TbADOAsisImportasistencia11: TWideStringField
    FieldName = 'asistencia11'
    Size = 50
  end
  object TbADOAsisImportnumalu12: TWideStringField
    FieldName = 'numalu12'
    Size = 50
  end
  object TbADOAsisImportasistencia12: TWideStringField
    FieldName = 'asistencia12'
    Size = 50
  end
end

object OLD_TbADOAsisImport: TADODataSet
  Connection = ADOBDHyperion
  CursorType = ctStatic
  LockType = ltReadOnly
  CommandText = 'select  *  from asistencias_todo'#13#10'order by codigo'#13#10
  Parameters = <>
  Prepared = True
  Left = 536
  Top = 96
  object OLD_TbADOAsisImportcodigo: TAutoIncField
    FieldName = 'codigo'
    ReadOnly = True
  end
  object OLD_TbADOAsisImportgrupo: TIntegerField
    FieldName = 'grupo'
  end
  object OLD_TbADOAsisImportfecha: TWideStringField
    FieldName = 'fecha'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu1: TWideStringField
    FieldName = 'numalu1'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia1: TWideStringField
    FieldName = 'asistencia1'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu2: TWideStringField
    FieldName = 'numalu2'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia2: TWideStringField
    FieldName = 'asistencia2'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu3: TWideStringField
    FieldName = 'numalu3'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia3: TWideStringField
    FieldName = 'asistencia3'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu4: TWideStringField
    FieldName = 'numalu4'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia4: TWideStringField
    FieldName = 'asistencia4'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu5: TWideStringField
    FieldName = 'numalu5'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia5: TWideStringField
    FieldName = 'asistencia5'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu6: TWideStringField
    FieldName = 'numalu6'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia6: TWideStringField
    FieldName = 'asistencia6'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu7: TWideStringField
    FieldName = 'numalu7'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia7: TWideStringField
    FieldName = 'asistencia7'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu8: TWideStringField
    FieldName = 'numalu8'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia8: TWideStringField
    FieldName = 'asistencia8'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu9: TWideStringField
    FieldName = 'numalu9'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia9: TWideStringField
    FieldName = 'asistencia9'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu10: TWideStringField
    FieldName = 'numalu10'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia10: TWideStringField
    FieldName = 'asistencia10'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu11: TWideStringField
    FieldName = 'numalu11'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia11: TWideStringField
    FieldName = 'asistencia11'
    Size = 50
  end
  object OLD_TbADOAsisImportnumalu12: TWideStringField
    FieldName = 'numalu12'
    Size = 50
  end
  object OLD_TbADOAsisImportasistencia12: TWideStringField
    FieldName = 'asistencia12'
    Size = 50
  end
end

object ADOBDHyperion: TADOConnection
  Attributes = [xaCommitRetaining]
  Connected = True
  ConnectionString = 
    'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Hyper' +
    'ion;Mode=ReadWrite'
  IsolationLevel = ilIsolated
  LoginPrompt = False
  Mode = cmReadWrite
  Left = 536
  Top = 24
end

Muchas gracias,


Virginia