connecte til AS 400 System I5

do you want to allow other users to use your user/pwd?

http://support.microsoft.com/kb/159691

Dim dbsCurrent As Database
Dim tdfLinked As TableDef
Dim sTableName As String
Dim sConnect As String

  On Error GoTo RefreshLinkX_err
   
    Set dbsCurrent = CurrentDb

    sTableName = "PRSDRIFT_AFDLNGV1"
   
    sConnect = "ODBC;DRIVER={Client Access ODBC Driver (32-bit)};CONNTYPE=2;UID=xx;PWD=xxx;DESC=Psystem - ODBC-datakilde;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;LANGUAGEID=ENU;DFTPKGLIB=QGPL;DBQ=QGPL PDRIFT;SYSTEM=xxxx.DK;FILEDSN=xx:\xx\xx.dsn;"

'    Refresh link on existing table
    Set tdfLinked = dbsCurrent.CreateTableDef(sTableName)
    tdfLinked.Connect = sConnect
   
    tdfLinked.SourceTableName = sTableName
    dbsCurrent.TableDefs.Append tdfLinked
 
    Exit Function

RefreshLinkX_err:
Debug.Print Err.Number

Select Case Err.Number
    Case 3010
   
End Select
   
Resume Next

this made it work

so information from the link help you find a solution?

No it was self made , it comes with an errorr when you try to append because the table exist already bur after ignore the path to the linked tables are there so ...

thanks