'Variable für die Verbindung und Fehler
    Private m_Connection As MySql.Data.MySqlClient.MySqlConnection
    Private m_lastErrors() As MySql.Data.MySqlClient.MySqlError
 
    'Dataset
    Private dx_Buchhaltung As New Buch
 
    'Data Adapter
    Private da_kunden As MySql.Data.MySqlClient.MySqlDataAdapter
 
    ''' <summary>
    ''' Stellt eine Verbindung mit einem MySQL-Server her
    ''' </summary>
    ''' <param name="ConnectionString">Ein String, der die Serverparameter 
    ' enthält</param>
    ''' <remarks></remarks>
    Private Sub Connect(ByVal ConnectionString As String)
        If m_Connection Is Nothing Then
            m_Connection = New MySql.Data.MySqlClient.MySqlConnection
        End If
 
        If m_Connection.State <> ConnectionState.Closed Then
            m_Connection.Close()
        End If
 
        AddHandler m_Connection.StateChange, AddressOf OnStateChange
        AddHandler m_Connection.InfoMessage, AddressOf OnInfoMessage
 
        Try
            m_Connection.ConnectionString = ConnectionString
            m_Connection.Open()
            GetServerVersion()
 
            ConnectStateChanged(True)
            CatchData()
            InitChilds()
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Exclamation + _
              MsgBoxStyle.OkOnly, "Verbindungsfehler")
            m_Connection.Close()
        End Try
    End Sub
 
    ''' <summary>
    ''' Liest die Datenbankeinträge vom Server ins Dataset
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub CatchData()
        If Not da_kunden Is Nothing Then da_kunden.Dispose()
 
        da_kunden = New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT * FROM" & _
          "kunden", m_Connection)
        da_kunden.Fill(dx_Buchhaltung.Kunden)
    End Sub
 
    ''' <summary>
    ''' Schreibt die Datenbankeinträge auf dem Server
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub CallData()
        da_kunden.Update(dx_Buchhaltung, "kunden")
    End Sub
 
    Private Sub KundenlöschenToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      KundenlöschenToolStripMenuItem.Click
        For i As Integer = 0 To fKunden.DataGridView1.SelectedRows.Count - 1
            If MsgBox("Möchten Sie die Daten mit Index='" & _
              fKunden.DataGridView1.Rows(i).Cells(0).Value & "' löschen?", _
              MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                dx_Buchhaltung.Kunden.RemoveKundenRow( _
                dx_Buchhaltung.Kunden.Rows(i))
            End If
        Next
    End Sub