'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