Vba support

Hello, I'm usign a Vba script in order to get data from SQL server, and used locally it working but when I'm using remote link doesn't'. This is the scrip Sub getDataComplessivoMagPg() Dim sConnString As String Set conn = CreateObject("[login to view URL]") Set rs = CreateObject("[login to view URL]") Server_Name = "2.122.427.112:14330" Database_Name = "mydb" User_ID = "admin" Password = "admin 1243" ' Create the connection string. sConnString = "Provider=SQLOLEDB;Data Source=" & Server_Name & ";Network Library=DBMSSOCN;Initial Catalog=" & Database_Name & ";User Id=" & User_ID & ";Password=" & Password & "" ' Open the connection and execute. [login to view URL] sConnString SQLStr = "SELECT * FROM customer_table" Set rs = [login to view URL](SQLStr) ' Set formula calculation Manual [login to view URL] = xlManual ' Check we have data. If Not [login to view URL] Then Sheets("ArcaMag").Range("O1:T10000") = "" ' Transfer result. Sheets("ArcaMag").Range("O1").CopyFromRecordset rs ' Close the recordset [login to view URL] Else MsgBox "Error: No records returned.", vbCritical End If ' Clean up If CBool([login to view URL] And adStateOpen) Then [login to view URL] Set conn = Nothing Set rs = Nothing 'MsgBox "Done!", vbInformation, "Done!" End Sub