Dim sour As String = "data source= (DESCRIPTION =(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.1)(PORT" & _         "= 1521)) (CONNECT_DATA =(SERVER = DEDICATED)" & _         "(SERVICE_NAME = ORCL)))"

 

%OraclePath%\network\admin\tnsnames.ora

[ServerName]=   (DESCRIPTION =     (ADDRESS_LIST =       (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.1)(PORT = 1521))     )     (CONNECT_DATA =       (SERVICE_NAME = ORCL)     )   )