[vb6] F5=Absturztaste

[jesus]

Ich habe ein dickes Problem mit meinem vb6..
Immerwieder stürzt die IDE beim Testlauf (F5) einfachso
immer ab.

Option Explicit
Private Sub Form_Load()
  Winsock.Connect "www.pokemonexperte.de", 80
End Sub
Private Sub winsock_Connect()
  Winsock.SendData "GET /index.php HTTP/1.0" + vbCrLf + vbCrLf
End Sub
Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
   Dim strData As String
   Winsock.GetData strData, vbString
   Winsock.Close
   txt.Text = strData
End Sub

Allein schon dieses kleine Stückchen Code reicht für
ein "Problembericht senden | nicht senden"

Wenn ich es compiliere und die fertige Datei execute,
läuft alles sauber, nichts stürzt ab.
Was zur Hölle vb6 doch nicht verträgt!!!

Habe hier nen Datengrabber für ne Pokemon Online Datenbank gebastelt

Option Explicit
Dim pknr As Integer
Dim strHost, strRequest As String
Private Sub Form_Load()
    strHost = "www.pokemonexperte.de"
    Winsock.Connect "87.106.15.47", 80
End Sub
Private Sub winsock_Connect()
    For pknr = 1 To 386 Step 1
        strRequest = "GET /pokedex/index.php?pknr=" + Str(pknr) + "&edition= HTTP/1.0" + vbCrLf
        strRequest = strRequest + "Host: " + strHost + vbCrLf + vbCrLf

        Winsock.SendData strRequest
    Next
End Sub
Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Winsock.GetData strData, vbString

    ' Search all the words in a string
    Dim re As New RegExp, m As Match
    re.Pattern = "<li>Pokémon: (.*)</li>"
    re.Global = True
    For Each m In re.Execute(strData)
       txt.Text = txt.Text + vbCrLf + "INSERT INTO const_pokemon SET name_german='" + m.SubMatches(0) + "' WHERE pdexnrA=" + pknr
    Next
End Sub

Der soll einen sql query generieren pro Pokemon-Eintrag,
aber irgendwie scheint beim starten nix zu passieren