This code working fine with LOCAL IP not with WAN. can anyone help me abouth this.

Code:
Dim con As New ADODB.Connection
conString = "PROVIDER = SQLOLEDB;SERVER=LOCAL IP;UID=XXXX;PWD=XXXX;DATABASE=TESTDB"
con.ConnectionString = conString
con.Open