Skjul password

Jeg bruger følgende kode til at hente noget data fra en MSSQL server og sætte det ind i et ark.

__________________________________________________

Sub X()
  Dim lSql As String
  Dim lConn As ADODB.Connection
  Dim lRs As ADODB.Recordset
  Dim lSource As String
  Dim lUser As String
  Dim lPassword As String

  '***************************************
  ' Hvordan skjuler man følgende?
  lSource = "'MinDataBase'"
  lUser = "'BrugerNavn'"
  lPassword = "'KodeOrd'"
  '***************************************

  lSql = "Select * From dbo.tblMinTabel"
  Set lConn = New ADODB.Connection
  lConn.ConnectionString = "Data Source=" & lSource & ";" & _
                          "User ID=" & lUser & ";" & _
                          "Password=" & lPassword & ";"
  lConn.Open
  Set lRs = New ADODB.Recordset
  lRs.Open lSql, lConn, adOpenStatic, adLockReadOnly
  Sheet1.Range("B2").CopyFromRecordset lRs
  lConn.Close
  Set lConn = Nothing
  Set lRs = Nothing
End Sub

_______________________________________



Hvordan skjuler man source, user og password i koden, så brugeren ikke umiddelbart kan få det at se?
Hvis man som her skriver det direkte i koden, er det jo ikke det store problem og finde det frem.