Try
                Dim da_speichern As New MySqlDataAdapter("", _
                  clsConnector.Verbindung)
                da_speichern.UpdateCommand = New MySqlCommand("UPDATE kontakte" & _
                "SET Anrede = ?Anrede, Titel = ?Titel, Name = ?Name, Vorname =" & _
                "?Vorname, Briefanrede = ?Briefanrede, Mailanrede =" & _
                "?Mailanrede, Strasse = ?Strasse, Plz = ?Plz, Ort = ?Ort," & _
                "Telefon = ?Telefon, Telefon2 = ?Telefon2, Fax = ?Fax, Mobil =" & _
                "?Mobil, Website = ?Website, Land = ?Land, eMail1 = ?eMail1," & _
                "eMail2 = ?eMail2, eMail3 = ?eMail3, StandardMail =" & _
                "?Standardmail, Skype = ?Skype, ICQuin = ?ICQ, StandardTel = 1," & _
                "Locked = ?gesperrt, Notizen = ?Notizen, gesperrtvon =" & _
                "?gesperrtvon, Position = ?Position, Abteilung = ?Abteilung" & _
                "WHERE kontaktID = " & kID, clsConnector.Verbindung)
                With da_speichern.UpdateCommand.Parameters
                    .AddWithValue("?Anrede", Anrede)
                    .AddWithValue("?Titel", Titel)
                    .AddWithValue("?Name", Name)
                    .AddWithValue("?Vorname", Vorname)
                    .AddWithValue("?Briefanrede", Briefanrede)
                    .AddWithValue("?Mailanrede", Mailanrede)
                    .AddWithValue("?Strasse", Strasse)
                    .AddWithValue("?Plz", Plz)
                    .AddWithValue("?Ort", Ort)
                    .AddWithValue("?Telefon", Telefon_privat)
                    .AddWithValue("?Telefon2", Telefon_geschaeftlich)
                    .AddWithValue("?Fax", Fax)
                    .AddWithValue("?Mobil", Mobil)
                    .AddWithValue("?Website", Website)
                    .AddWithValue("?Land", Land)
                    .AddWithValue("?eMail1", eMail_table(0).ToString)
                    .AddWithValue("?éMail2", eMail_table(1).ToString)
                    .AddWithValue("?eMail3", eMail_table(2).ToString)
                    .AddWithValue("?Standardmail", Standardmail)
                    .AddWithValue("?Skype", Skype)
                    .AddWithValue("?ICQ", IM_Adresse)
                    .AddWithValue("?gesperrt", gesperrt)
                    .AddWithValue("?Notizen", Notizen)
                    .AddWithValue("?gesperrtvon", gesperrtvon)
                    .AddWithValue("?Position", Position)
                    .AddWithValue("?Abteilung", Abteilung)
                    .AddWithValue("?Datum_heute", Format(Now, "yyyy-MM-dd"))
                End With
                da_speichern.UpdateCommand.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try