"dbo_" Missing From DNS-Less Connected Tables - vba

Question

I've had a DNS-less connection to my SQL Servers for years... but all of a sudden some (not all) of the tables are coming across WITHOUT the "dbo_" in the table name. I need the "dbo_" in the table names. It doesn't affect all the tables, just some of them. What's interesting is that it's the same tables that get the "dbo_" and the same ones that do not get it.
All tablenames in the table start with "dbo_". Nothing has changed in the DB nor the server for years. It's a 2019 SQL Server.
Any ideas on why its doing this?
Private Sub cmdLogin_Click()
On Error GoTo Err_Login
Dim varUserName As String
Dim varPassword As String
Dim vardim As String
Dim varCreds As String
varUserName = Me.txtUserName
varPassword = Nz(Me.txtPassword, vbNullString)
varCreds = "UID=" & varUserName & ";PWD=" & varPassword
vardim = ";APP=2007 Microsoft Office system;DATABASE=xyz"
strConnection = "ODBC;Driver={ODBC Driver 17 for SQL Server};Server=xyz;" & varCreds & ";APP=2007 Microsoft Office system;DATABASE=xyz"
Dim dbCurrent As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
Set dbCurrent = DBEngine(0)(0)
Set qdf = dbCurrent.CreateQueryDef("")
Dim td As TableDef
'Columns in ActiveTablesToLink: (DatabaseName, LinkFlag, LocalTableName, ServerName, SSTableName)
strsql = "SELECT * FROM ActiveTablesToLink WHERE LinkFlag = -1 And DatabaseName = 'xyz'"
Set recLocal = CurrentDb.OpenRecordset(strsql)
recLocal.MoveLast
recLocal.MoveFirst
strRecCount = recLocal.RecordCount
If strRecCount > 0 Then
Do While Not recLocal.EOF
stLocalTableName = recLocal!LocalTableName
stRemoteTableName = recLocal!SSTableName
Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, strConnection)
CurrentDb.TableDefs.Append td
recLocal.MoveNext
Loop
Else
End If 'Empty recordset
recLocal.Close
Application.RefreshDatabaseWindow
DoCmd.Close acForm, "Login"
Exit_cmdLogin: ' Label to resume after error.
Exit Sub
Err_Login:
If DBEngine.Errors.Count > 1 Then
'ODBC Error
For Each errany In DBEngine.Errors
MsgBox "ODBCExecute: Err# " & errany.Number & " raised by " _
& errany.Source & ": " & errany.Description, _
vbCritical, "cmdExecuteAttached()"
Next errany
Else 'Access Error
MsgBox "ODBCExecute: Err# " & Err.Number & " raised by " _
& Err.Source & ": " & Err.Description, _
vbCritical, "cmdExecuteAttached()"
End If
Resume Exit_cmdLogin
End Sub

Answer 1

Here is where you put the code just in case you need to fix this via VBA:
Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, strConnection)
' Add this line before he append
td.Name = stLocalTableName
CurrentDb.TableDefs.Append td
recLocal.MoveNext
Thanks to Tim Williams to finding the bug article:
https://answers.microsoft.com/en-us/msoffice/forum/all/has-version-2212-of-ms-access-affected-attaching/e730184f-db94-4fa8-b144-491c638df87c