Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button3.Click
        Dim x As Long
        Dim Anzahl As Long
        Dim sql As String
        Dim Conn As New MySqlConnection(Verbindungsstring)
        Dim myCommand As New MySqlCommand
        Conn.Open()
        x = 0
        If Me.DataGridView1.RowCount > 0 Then
            Do Until x = Me.DataGridView1.RowCount - 1
                Anzahl = Module1.returnString("Select count(*) from Artikel" & _
                  "where Artnum = 'K" &    RTrim(LTrim(Me.DataGridView1.Rows( _
                  x).Cells(5).Value)) & "'") 'Unterfunktion, die überprüft, ob _
                  der Datensatz bereits vorhanden ist. Das ist aber nicht _
                  Zeitkritisch, da das ja auch beim Insert geprüft wurde.
 
                If Anzahl = 0 Then 'Neuer Datensatz
                    sql = "Insert into Artikel...."
                    Try
                        myCommand.CommandText = sql
                        myCommand.Connection = Conn
                        myCommand.ExecuteNonQuery()
                    Catch myerror As MySqlException
                        MsgBox("There was an error updating the database: " & _
                          myerror.Message)
                    End Try
                 Else 'Datensatz aktualisieren
                    sql = "Update Artikel set ..."
                    Try
                        myCommand.CommandText = sql
                        myCommand.Connection = Conn
                        myCommand.ExecuteNonQuery()
                    Catch myerror As MySqlException
                        MsgBox("There was an error updating the database: " & _
                          myerror.Message)
                    End Try
               x = x + 1
            Loop
        End If
        If Not Conn Is Nothing Then Conn.Dispose()
        If Not myCommand Is Nothing Then myCommand.Dispose()
    End Sub