魔界の仮面弁士さん　ありがとうございます。
優先のチェックを外してプログラムを作っていたのですが
RTb = AcCon.CurrentDb.CreateTableDef****のところで以下の所でエラーが出てしまいました。
System.Runtime.InteropServices.COMException: 'タイプ ライブラリ/DLL の読み込みエラーです。 (HRESULT からの例外:0x80029C4A (TYPE_E_CANTLOADLIBRARY))'

この掲示板を見直していたところ【SysNative】の部分見落としていました
Process.Start("C:\Windows\SysNative\WFS.exe")とし両方解決することができました。
ありがとうございました。

 

'Accessのリンクテーブル作成 

        Dim RTb As TableDef : Dim OdCon As String : Dim TbName(2) As String



       OdCon = "ODBC;DSN=*****;DATABASE=*****;UID=sa;PWD=*****;Encrypt=no;TrustServerCertificate=no;" &

               "ConnectRetryCount=24;ConnectRetryInterval=5;Connection Timeout=120;"



        For i As Integer = 1 To 2

            'ODBCとSQLのTableName 

            TbName(1) = "dbo_" & TBL(i) : TbName(2) = "dbo." & TBL(i)



            RTb = AcCon.CurrentDb.CreateTableDef(TbName(1), TableDefAttributeEnum.dbAttachSavePWD, TbName(2), OdCon)



            'Tableがあれば削除して再作成 

            If AcCon.DCount("*", "MSysObjects", "[Name] = '" & TbName(1) & "'") > 0 Then



                acCmd.DeleteObject(Access.AcObjectType.acTable, TbName(1))

                AcCon.CurrentDb.TableDefs.Append(RTb)

            Else



                'なければ作成 

                AcCon.CurrentDb.TableDefs.Append(RTb)

            End If

        Next