SQL Server tabellen linken in MS Access applicatie

[Sanders69]

Onderstaande voorbeeld om SQL Server te connecten heb ik al 15 jaar draaiend echter sinds vanochtend krijg ik onduidelijke foutmeldingen.
Ik gebruik DAO 3.6 in plaats van ADO omdat ik dit gewend ben.
Is er iemand die een andere manier binnen DAO kent welke ook werkt?
Al mijn MS Access applicaties werken niet meer en vanochtend om 7 uur werkte alles prima.

Dim tdfLinked As TableDef

strServerName = "DUMMIE_SERVERNAME"
strSQLDatabaseName = "DUMMIE_DB"
strSQLUsername = "DUMMIE_USR"
strSQLPassword = "DUMMIE_PW"
strConnectString = "ODBC;Driver={SQL Server};SERVER=" & strServerName & _
                        ";DATABASE=" & strSQLDatabaseName & _
                        ";UID=" & strSQLUsername & _
                        ";PWD=" & strSQLPassword
strTabel(1)="Table1"
strTabel(2)="Table2"

For i = 1 To 2
    Set tdfLinked = CurrentDb.CreateTableDef(strTabel(i))
    tdfLinked.Connect = strConnectString
    tdfLinked.SourceTableName = strTabel(i)
next i

 

[huijb]

Gewoon bij je eerst geplaatste vraag blijven, daar zijn al helpers met je vraag bezig. https://www.helpmij.nl/forum/showthread.php/963319-Access-werkt-sinds-deze-ochtend-niet-meer deze gaat op slot.