SQL Server Connect Port

[zqi]

Hi, All,

I need a kind solution to put the SQL Server Port number (2434, not default 1433) in my coding:

Set dbCurrent = CurrentDb
For i = 0 To dbCurrent.TableDefs.Count - 1
Set tmptable = dbCurrent.TableDefs(i)
If tmptable.Connect <> "" Then
tmptable.Connect = "ODBC;Driver=SQL Server;UID=" & ctltxtUsername & ";PWD=" & ctltxtPassword & ";Server=" & ctltxtServer &_
";Database=" & ctltxtDatabase
tmptable.RefreshLink
End If
DoEvents
Next i

Since the network guy move the SQL Server 2000 DB (back end) to a new server and assign a new port number. How can i change my Access fromt end to link it? Thanks.