Allllso, ich habe jetzt in einem anderen FOrum nochmal hilfe bekommen, und von google... *ist das stundenlange googeln langsam leid*

Die haben mir gesagt das die mSQL Verbindung nur in dem Sub aktiv ist in dme sie gemacht wurde. Okay, ich verschiebe also die Vberbindung in das
Sub but1.Click


Alles cool, dann mache ich noch den eintrag richtig wie du es geschreiben hast (ist mi gar nicht aufgefallen )

Wenn ich es jetzt per Exe aufrufe, also vorher Comilier stürtzt die Exe Datei ab, wenn ich es nicht compilier und per Entwicklungsumgebung starte stürtzt die gleich mit ab! Und keinen eintrag *frustriert*


PS: Bei dem projekt wäre ich gleich dabei, aber dafür bräuchte man das Passwort, den Host usw von RPG-Kingdom, und ich glaube irgendwie nicht das der/die liebe Admin das rausgibt... hab gerade vergessen obs ne Frau oder nen Mann ist...


Nunja, ich poste als Anhang nochmal meinen aktuellen Code.

PS: Das Merkwürdige ist (Ich habe mit Soppmarken getestet) das das programm erst bei dem End Sub des but1 abstürtzt! Muss dort vielleicht noch eine befehlszeile hin? Ich hatte mal gelsen das die Variable die zum eintragen genommen wird wieder freigemacht werden mus, vielleicht ist das ja der Fehler..*nochmal googlet*



Code: 
' Sicherer Textverschl?sselung
Public Function VernamCode(sOriginal As String, _
  sPassword As String) As String
  
  Dim i As Long
  Dim aktpos As Long
  Dim bAkt As Byte
  Dim bCode As Byte

  VernamCode = ""
    
  ' Passwort auf die Länge des Klartextes bringen
  ' Dazu wird z.B. aus "Geheim" dann "GeheimGeheimGehe...."
  aktpos = 1
  For i = Len(sPassword) + 1 To Len(sOriginal)
    sPassword = sPassword & Mid(sPassword, aktpos, 1)
    aktpos = aktpos + 1
    If aktpos > Len(sPassword) Then aktpos = 1
  Next i
    
  For i = 1 To Len(sOriginal)
    bAkt = Asc(Mid(sOriginal, i, 1))
    bCode = Asc(Mid(sPassword, i, 1))
        
    VernamCode = VernamCode & Chr(bAkt Xor bCode)
  Next i
End Function
'
'
'

Private Sub inp1_Change()
lbl4.Caption = inp1.Text
End Sub

Private Sub but1_Click()

Dim oConn As New ADODB.Connection
Dim sConn As String
Dim sServer As String
Dim sUserName As String
Dim sPassword As String
Dim sOriginal As String
Dim sCode As String
Dim sDBName As String
' Server Hostname (oder IP)
sServer = "mysql.lima-city.de"
' Benutzerdaten
sUserName = "USER26252"
sOriginal = "********"
sPassword = "************"
sCode = VernamCode(sOriginal, sPassword)
sOriginal = VernamCode(sCode, sPassword)
' Datenbank-Name
sDBName = "DB1116949315"
sConn = "Provider=MSDASQL.1;DRIVER={MySQL Connector/ODBC v5};Server=" & sServer & ";Database=" & sDBName
' Connection öffnen
oConn.Open sConn, sUserName, sOriginal
MsgBox "Funktion wird ausgeführt, trage ein... Bitte warten!"
' Abschicken des Insert-Statements
oConn.Execute "INSERT INTO (wake) VALUES ('" & inp1.Text & "')"
End Sub