Read through your code:
Dim myTableLogonInfo As TableLogOnInfo = myTable1.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
myTable1.ApplyLogOnInfo(myTableLogonInfo)
- Get
myTable1.LogOnInfo
, and store it in myTableLogonInfo
; - Change the completely unrelated variable
crtableLogoninfo
; - Apply the unchanged logon info from
myTableLogonInfo
to myTable1
;
Presumably, the three lines that start
crtableLogoninfo.ConnectionInfo = ...
should be referencing the
myTableLogonInfo...
variables instead.
Dim myTableLogonInfo As TableLogOnInfo = myTable1.LogOnInfo
myTableLogonInfo.ConnectionInfo = crConnectionInfo
myTable1.ApplyLogOnInfo(myTableLogonInfo)