Edit Query

[GregR]

I have code that executes a Query Edit as follows:
Sub EditQry()
'
With Selection.QueryTable
.Connection = Array(Array( _

"ODBC;DSN=Clockworks;Description=Clockworks;UID=sa;;APP=Microsoft
Office 2000;WSID=XXXXXXXX;DATABASE=Intranet;LANGUAGE=us_english;Ne" _
), Array("twork=DBMSSOCN;Address=172.30.1.110,1433"))
.CommandText = Array( _
"SELECT tbl_TimeSlips1.Year, tbl_TimeSlips1.Month,
tbl_TimeSlips1.Week, tbl_ISProjects.Description, tbl_ISPersonnel.Name,
tbl_ISPersonnel.Department, tbl_ISProjects.GLCode,
tbl_ISProjects.GLSubCode, tb" _
, _
"l_TimeSlips1.Hours, tbl_ISPersonnel.Rate, tbl_TimeSlips1.GL,
tbl_TimeSlips1.ContractorCode, tbl_TimeSlips1.ContractorName,
tbl_TimeSlips1.Charged, tbl_TimeSlips1.Notes, tbl_ISProjects.RecordID,
tbl_IS" _
, _
"Projects.Department, tbl_ISProjects.Capitalized,
tbl_ISProjects.Total, tbl_ISPersonnel.RecordID, tbl_ISPersonnel.Status"
& Chr(13) & "" & Chr(10) & "FROM Intranet.dbo.tbl_ISPersonnel
tbl_ISPersonnel, Intranet.dbo.tbl_ISProjects " _
, _
"tbl_ISProjects, Intranet.dbo.tbl_TimeSlips1 tbl_TimeSlips1" &
Chr(13) & "" & Chr(10) & "WHERE tbl_TimeSlips1.ContractorCode =
tbl_ISPersonnel.RecordID AND tbl_TimeSlips1.GL =
tbl_ISProjects.RecordID AND ((tbl_TimeSlips1.Year=200" _
, _
"5) AND (tbl_TimeSlips1.Month=11) AND (tbl_TimeSlips1.Hours>0)
AND (tbl_ISProjects.Capitalized=1) AND
(tbl_ISPersonnel.Status='Associate'))" _
)
.Refresh BackgroundQuery:=False
End With
Selection.Subtotal GroupBy:=7, Function:=xlSum,
TotalList:=Array(22), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

The Query asks for a user name which is "sa" and a password. How and
where do I add the password to the above code to avoid the prompt. TIA