bueno amigos vuelvo abrir el tema ya que no pude  solucionarlo intente de toda las formas conectarme de una Aplicacion de una Ciudad  A al Servidor de una Ciudad B,
yo uso el sql 2000 , lo instale local no se si se instale de alguna otra forma para que se conecte o algo , uso visual basic 2005, habilite puertos , desactive el firewall hize casi todo y nada siempre me vota el mensaje SERVIDOR NO ENCONTRADO y ya no se que hacer alguna recomendacion que me daria porfavor lo siguentes codigo que use fue lo siguiente.

Public Function Abrir(ByVal server As String, ByVal DB As String, ByVal usuario As String, ByVal clave As String) As Boolean
       Try
           cadenaconexion.ConnectionString = "Server=[ip publica servidor,puerto];Database=[nombre bd];uid=[usuario]pwd=[password];"
           cadenaconexion.Close()
       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString())
       End Try
   End Function

TAMBIEN USE OLEDB PARA CONECTARME :  ESTA CADENA DE CONEXION

Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;

WENO DENME ALGUNAS PAUTAS PORFAVOR YA ME ROMPI LA CABEZA DE TODA LAS FORMAS