Private Sub AusXMLDateiToolStripMenuItem_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles AusXMLDateiToolStripMenuItem.Click
        'Pfad für das einlesen der XML Datei wird ausgelesen
        With OpenFileDlg
            .Title = "Öffnen XML Datei"
            .InitialDirectory = "c:\"
            .Filter = "XML Datei|*.xml"
            .FileName = ""
            .ShowDialog()
        End With
        'XML Datei wird in das DataSet gelesen
        myDataSet.ReadXml(OpenFileDlg.FileName)
        MessageBox.Show("Xml-Datei eingelesen")
        'Neue Datenbank wird deklariert
        Dim DB As New Datenbank
        'Pfad für das Speichern der Access Datenbank wird ausgewählt
        With SaveFileDlg
            .Title = "Datenbank speichern unter"
            .InitialDirectory = "c:\"
            .Filter = "Datenbankdatei|*.mdb"
            .FileName = ""
            .ShowDialog()
        End With
        'Grundgerüst der Datenbank wird erstellt
        DB.erstellen(SaveFileDlg.FileName)
        'Verbindung zur Accesss Datenbank wird hergestellt
        Dim myOleDbConnection As New OleDb.OleDbConnection
        myOleDbConnection.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          SaveFileDlg.FileName & ""
        Dim da As New OleDbDataAdapter
        Dim cmdbuilder As New OleDbCommandBuilder
        Dim cmd As New OleDbCommand
        'Select Befehl wird zugewiesen
        cmd.CommandText = "select * from GPS "
        cmd.Connection = myOleDbConnection
        da.SelectCommand = cmd
        'Verbindung zu Datenbank wird geöffnet
        myOleDbConnection.Open()
        cmdbuilder.DataAdapter = da
        'Insert Kommando wird generiert
        da.InsertCommand = cmdbuilder.GetInsertCommand
        'dataset wird aktualisiert
        da.Update(myDataSet, "GPS")
        'Verbindung zur Datenbank wird geschlossen
        myOleDbConnection.Close()
        DataGridView1.DataSource = myDataSet
        DataGridView1.DataMember = "GPS"
    End Sub

 Private Sub AlsDatenbankToolStripMenuItem_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles AlsDatenbankToolStripMenuItem.Click
 
        'Neue Datenbank wird deklariert
        Dim DB As New Datenbank
        'Pfad für das Speichern der Access Datenbank wird ausgewählt
        With SaveFileDlg
            .Title = "Datenbank speichern unter"
            .InitialDirectory = "c:\"
            .Filter = "Datenbankdatei|*.mdb"
            .FileName = ""
            .ShowDialog()
        End With
        'Grundgerüst der Datenbank wird erstellt
        DB.erstellen(SaveFileDlg.FileName)
        'Verbindung zur Accesss Datenbank wird hergestellt
        Dim myOleDbConnection As New OleDb.OleDbConnection
        myOleDbConnection.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          SaveFileDlg.FileName & ""
        Dim da As New OleDbDataAdapter
        Dim cmdbuilder As New OleDbCommandBuilder
        Dim cmd As New OleDbCommand
        'Select Befehl wird zugewiesen
        cmd.CommandText = "select * from GPS "
        cmd.Connection = myOleDbConnection
        da.SelectCommand = cmd
        'Verbindung zu Datenbank wird geöffnet
        myOleDbConnection.Open()
        cmdbuilder.DataAdapter = da
        'Insert Kommando wird generiert
        da.InsertCommand = cmdbuilder.GetInsertCommand
        'dataset wird aktualisiert
        da.Update(myDataSet, "GPS")
 
        'Verbindung zur Datenbank wird geschlossen
        myOleDbConnection.Close()
 
    End Sub