sql connection error

I am trying to connect to sql server on another machine and I am getting the error:

Microsoft OLE DB Provider for SQL Server error '80004005'

String data, right truncation


The code I am using is

serverIP = "ip,port"
serverPORT = "5801"
serverDB = "test_test"
serverLOGIN = "test"
serverPASSWORD = "test"


'* open connection
Dim objconn
Set objconn = Server.CreateObject("ADODB.Connection")
objconn.ConnectionString = "Provider=sqloledb;Persist Security Info=False;Network Library=DBMSSOCN;Data Source=" & serverIP & "," & serverPORT & ";Initial Catalog=" & serverDB & ";User ID=" & serverLOGIN & ";Password=" & serverPASSWORD & ";Connect Timeout=5;Pooling=False"
Call objconn.Open()