Private Sub AeBtn_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles AeBtn.Click
 
        With myDataSet.Tables("GPS").Rows(pos)
            .Item("X") = xTxtBx.Text
            .Item("Y") = yTxtBx.Text
            .Item("Z") = zTxtBx.Text
            .Item("Uhrzeit") = uTxtBx.Text
            .Item("Satellitenanzahl") = sTxtBx.Text
            .Item("Qualität") = qTxtBx.Text
        End With
 
    End Sub
 
    Private Sub delBtn_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles AeBtn.Click, delBtn.Click
        With DataGridView1
            If .SelectedRows.Count > 0 Then
                For i As Integer = .SelectedRows.Count - i To 0 Step -1
                    .Rows.Remove(.Rows.Item(i))
 
                Next
            End If
        End With
 
    End Sub
 
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim erg As Integer
        cn.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0; Data Source=" _
          & OpenFileDlg.FileName & ";"
        Dim cmd As New OleDbCommand
        cmd.CommandText = "select * from GPS"
        cmd.Connection = cn
        da.SelectCommand = cmd
 
        erg = MessageBox.Show("Sollen Änderungen gespeichert werden?", _
          "Datenbankupdate", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If erg = Windows.Forms.DialogResult.Yes Then
 
            Dim cmdBld As New OleDbCommandBuilder
            cmdBld.DataAdapter = da
            da.UpdateCommand = cmdBld.GetUpdateCommand
            cn.Open()
            da.Update(myDataSet, "GPS")
            cn.Close()
 
 
        End If
 
    End Sub