Connection a SQL Server 2012 depuis Internet

Bonjour tout le monde,

J'ai une base de donnees SQL Server 2012 hebergee sur mon propre PC (temporairement).
Je developpe un petit soft en VB6 qui me permet d'y inserer des donnees.
Pour l'instant j'utilise la fonction suivante pour me connecter dessus :

Private Const DBUsername As String = "admin"
Private Const DBPassword As String = "XXX"
Private Const DBName As String = "XXX"
Private Const ServerName As String = ".\SQLSERVTEST"
Public DBConnection As New ADODB.Connection
Private DBCommand As ADODB.Command

Public Function Connect() As Boolean
On Error Resume Next

Dim res As Boolean

DBConnection.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Network Library=DBMSSOCN;" & _
"Initial Catalog=" & DBName & ";" & _
"Data Source=" & ServerName & ";" & _
"User ID=" & DBUsername & ";" & _
"Password=" & DBPassword & ";"

DBConnection.Open

While (DBConnection.State = adStateConnecting)
DoEvents
Wend

If DBConnection.State = adStateOpen Then
res = True
Else
res = False
End If

Connect = res
End Function

Et cela marche parfaitement.

Etant connecte a Internet via un routeur j'ai redirige le port 1433 et 1434 vers ma machine et je suis en DMZ.

Lorsque j'effectue un netstat -a sur l'invite de commandes, je vois bien que les ports 1433 et 1434 sont en ecoute.

J'ai desactive le firewall Windows et j'ai configure SQL Server Configuration Manager de la sorte :

J'ai active TCP/IP pour le serveur SQLSERVTEST et j'ai pris soin de mettre dans le pave IpAll, le port TCP Port a 1433 et j'ai supprime la valeur existante dans le champ TCP Dynamic Ports, j'ai redemarre le service afin que mes changements soient pris en compte.

Lorsque je change
Private Const ServerName As String = ".\SQLSERVTEST"
par
Private Const ServerName As String = "XXX.XXX.XXX.XXX\SQLSERVTEST"

(XXX.XXX.XXX.XXX) etant mon adresse IP, je n'arrive pas a me connecter a ma base de donnees.

J'ai essaye :
Private Const ServerName As String = "XXX.XXX.XXX.XXX\SQLSERVTEST,1433"
Private Const ServerName As String = "XXX.XXX.XXX.XXX,1433\SQLSERVTEST"
Private Const ServerName As String = "XXX.XXX.XXX.XXX,1433"

Mais toujours sans succes.

Votre aide me serait tres precieuse. Merci de m'indiquer si quelque chose me manque pour etablir la connexion ou si je fais mal quelque chose.

Merci chers collegues.

Pour info, je suis sous Windows 7 Home Premium Service Pack 1

P.S : desole pour les accents (j'ai un clavier querty)