Connect til SQL2000

Hvordan bruger jeg TCP/IP i stedet for Named Pipe til at connecte til SQL??

Jeg connecter på følgende måde:
cn.ConnectionTimeout = 15
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = ServerName
cn.Properties("Initial Catalog").Value = DatabaseName
cn.Properties("User ID").Value = UserName
cn.Properties("Password").Value = Password
' Open the database.
cn.Open()

:-)