Private Sub Save_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Save.Click
        Dim dblPos As Double
        Try
            dblPos = Me.BindingContext(objDataView).Position
            With objDataSet.Tables("Tabelle1").Rows(dblPos)
                .Item("Vorname") = txtVorname.Text
                .Item("Nachname") = txtNachname.Text
                .Item("Postleitzahl1") = txtPLZ.Text
                .Item("Ort1") = txtOrt.Text
            End With
            objDataAdapter.Update(objDataSet, "Tabelle1")
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Information)
        Finally
            objConnection.Close()
            objDataSet = Nothing
        End Try
    End Sub