ник: Oldman
Да, спасибо там все просто оказалось:
tabl:=CreateOleObject('ADOX.Table');
tabl.ParentCatalog:=cat;
tabl.Name:='work_T_Delivery_Bill';
tabl.Properties['Jet OLEDB:Link Provider String'].Value:='ODBC;Driver={SQL Server};DATABASE=WORK;'
+'SERVER='+MainForm.Serv+';Trusted_Connection=Yes;';
//'ODBC;DSN=PRODUCTIVE;DATABASE=WORK;Trusted_Connection=Yes;'; Можно и так...
tabl.Properties['Jet OLEDB:Remote Table Name'].Value:='tech.T_Delivery_Bill';
tabl.Properties['Jet OLEDB:Create Link'].Value:=True;
cat.Tables.Append(tabl);
tabl:=NULL;