Проблемы с SQL-базой данных
 

Всем добрый вечер!
Проблема в следующем:
через делфи подгребается SQL бд. Само подключение происходит с помощью ADOConnection, далее ADODataSet`ы растаскивают каждый по 1 табличке(всего их 4). Далее, в одном из DataSet`ов подключаются поля подстановки и вот тут начинается геморрой!
Одна из таблиц подключается нормально, но после подключения любой другой при попытке редактирования вылетает ошибка следующего содержания: "raised exeption class EOleExeption with message 'Ошибка неизвестного типа'".
Сравнил все св-ва DataSet`ов - различаются только именами.
Если у кого есть вумные мысли по етому поводу - просьба поделиться.
Заранее спасибо!

Последние исследования показали, что работает только 1 поле подстановки(любое). При попытке подключить несколько - уже описанная выше ошибка.

Мало данных.
1. Версия Delphi.
2. Какой SQL cервер.
3. ADO connection string хотелось бы увидеть
4. Настройки DataSeta.

Delphi 7
MSSQL 2005
Connection string: Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mdv;Data Source=SERVER3\SERVER_SQL;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=BPA;Use Encryption for Data=False;Tag with column collation when possible=False

DataSet: object ADODataSet1: TADODataSet
Active = True
CacheSize = 20
Connection = ADOConnection1
CursorType = ctStatic
CommandText = 'select IDManager, FIOManager from Managers'
Parameters = <>
Left = 272
Top = 240
object ADODataSet1IDManager: TAutoIncField
FieldName = 'IDManager'
KeyFields = 'IDManager'
ReadOnly = True
Visible = False
end
object ADODataSet1FIOManager: TStringField
FieldName = 'FIOManager'
Size = 50
end
end
object ADODataSet2: TADODataSet
Active = True
CacheSize = 20
Connection = ADOConnection1
CursorType = ctStatic
BeforePost = ADODataSet2BeforePost
CommandText =
'select IDMission, MissionName, IDManager, IDUser, IDStatus, Begi' +
'nTime, EndTime from Missions'
Parameters = <>
Left = 272
Top = 280
object ADODataSet2IDMission: TAutoIncField
FieldName = 'IDMission'
ReadOnly = True
end
object ADODataSet2MissionName: TStringField
FieldName = 'MissionName'
Size = 30
end
object ADODataSet2Manager: TStringField
FieldKind = fkLookup
FieldName = 'Manager'
LookupDataSet = ADODataSet1
LookupKeyFields = 'IDManager'
LookupResultField = 'FIOManager'
KeyFields = 'IDManager'
Lookup = True
end
object ADODataSet2StatName: TStringField
FieldKind = fkLookup
FieldName = 'StatName'
LookupDataSet = ADODataSet4
LookupKeyFields = 'IDStatus'
LookupResultField = 'NameStatus'
KeyFields = 'IDStatus'
Lookup = True
end
object ADODataSet2IDManager: TIntegerField
FieldName = 'IDManager'
end
object ADODataSet2IDUser: TIntegerField
FieldName = 'IDUser'
end
object ADODataSet2IDStatus: TIntegerField
FieldName = 'IDStatus'
end
object ADODataSet2BeginTime: TDateTimeField
FieldName = 'BeginTime'
end
object ADODataSet2EndTime: TDateTimeField
FieldName = 'EndTime'
end
end
Вот...