myConnString = "server=" & globServer & ";" _
                                        & "user id=" & globUser & ";" _
                                        & "password=" & globPassword & ";" _
                                        & "database=" & NeueDatenbank
 
            conn.ConnectionString = myConnString
            Try
                conn.Open()
                myCommand.Connection = conn
                For i = 0 To DataGridView1.RowCount - 1
                Try
                       myCommand.CommandText = "INSERT INTO archive(Absender," & _
                         "AbsAdresse, Empf,  EmpfAdresse, CC, Datum, Uhrzeit," & _
                         "Gesendet, Betreff, MailTyp, Richtung, Anlagen," & _
                         "Mailinhalt)" & _
                                                "Values(?MAbs, ?MAbsAdresse," & _
                                                "?MEmpf,  ?MEmpfAdresse, ?MCC," & _
                                                "?MDatum, ?MUhrzeit," & _
                                                "?MGesendet, ?MBetreff," & _
                                                "?MMailTyp, ?MRichtung," & _
                                                "?MAnlagen, ?MMailinhalt)"
                        myCommand.Parameters.AddWithValue("?MAbs", _
                        DataGridView1.Rows(i).Cells().Item(0).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MAbsAdresse", _
                        DataGridView1.Rows(i).Cells().Item(1).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MEmpf", _
                        DataGridView1.Rows(i).Cells().Item(2).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MEmpfAdresse", _
                        DataGridView1.Rows(i).Cells().Item(3).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MCC", _
                        DataGridView1.Rows(i).Cells().Item(4).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MDatum", _
                        DataGridView1.Rows(i).Cells().Item(5).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MUhrzeit", _
                        DataGridView1.Rows(i).Cells().Item(6).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MGesendet", _
                        DataGridView1.Rows(i).Cells().Item(7).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MBetreff", _
                        DataGridView1.Rows(i).Cells().Item(8).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MMailTyp", _
                        DataGridView1.Rows(i).Cells().Item(9).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MRichtung", _
                        DataGridView1.Rows(i).Cells().Item(10).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MAnlagen", _
                        DataGridView1.Rows(i).Cells().Item(12).Value.ToString)
                        myCommand.Parameters.AddWithValue("?MMailinhalt", _
                        DataGridView1.Rows(i).Cells().Item(13).Value.ToString)
                        myCommand.ExecuteNonQuery()
                 Catch myerror As MySqlException
                        'Fehler
                 End Try            
                 Next i
           Catch myerror As MySqlException
                 ' Fehler
           Finally                               
                    If conn.State <> ConnectionState.Closed Then conn.Close()
           End Try