creating tabledef connection to login to ODBC dbase

[colmkav]

HI, anyone know why this code doesnt work? I am trying to set up the
connect property of a tabledef so that it uses a given login and
password. however once I run it I still need to login when I open the
table

Function SetConnections( )
Dim strTableName, strSourceTableN ame As String
Dim objTableDef As TableDef
Dim strConnect As String '= "Set your connection string here"
Dim rs As Recordset
Dim li_size As Integer, ls_user As String, ls_host As String
Dim QuerydefTemp As querydef

'On Error GoTo Trapper
ls_dsn = "VAR"
ls_database = "uvarprod"
ls_user = GetLogin
ls_pwd = getPassword(CVa rDB, ls_user)
ls_uid = ls_user
strConnect = "ODBC;DSN=" & ls_dsn &
";NA=varsybhost prod.opf.swissb ank.com,9996;DB =" & _
ls_database & ";UID=" & ls_uid & ";PWD=" & ls_pwd '&
";TABLE=dbo.cur rency"

'Reset the connection property for all pass through queries
'For Each QuerydefTemp In CurrentDb.Query Defs
'If querydef.Connec t <"" Then
'querydef.Conne ct = "ODBC;" & strConnect
'End If
'Next

'Reset connections for linked tables
For Each TableDef In CurrentDb.Table Defs
If TableDef.Connec t <"" And TableDef.Name = "dbo_curren cy" Then
'Get the table name and source table name
strTableName = TableDef.Name
strSourceTableN ame = TableDef.Source TableName

'Recreate the tabledef
Set objTableDef = New TableDef
With objTableDef
..Name = strTableName & "Temp"
..SourceTableNa me = strSourceTableN ame
..Connect = strConnect
End With
CurrentDb.Table Defs.append objTableDef

'If the new tabledef was successfully created, delete the old TableDef
CurrentDb.Table Defs.Delete strTableName

'Change the name of the new tabledef to that of the old TableDef
CurrentDb.Table Defs(strTableNa me & "Temp").Nam e = strTableName

End If
Next
Set objTableDef = Nothing
Exit Function
Trapper:
MsgBox "Error setting connections to SQL Server Database"
Exit Function
End Function