Try
            Me.Cursor = Cursors.WaitCursor
            Me.OleDbConnection2.ConnectionString = DB_Conn()
            Dim dbl As Double
 
           dbl = Me.BindingContext(Me.DataView1).Position
 
            With Me.KundenDataset1.Tables("Kunden").Rows(dbl)
 
                .Item("Name") = Me.tbName.Text
                .Item("Vorname") = Me.tbVorname.Text
                .Item("Straße") = Me.tbStrasse.Text
                .Item("Ort") = Me.tbOrt.Text
                '.Item("PLZ") = Me.tbPlz
                .Item("Tele1") = Me.tbTele1.Text
                .Item("Tele2") = Me.tbTele2.Text
                .Item("EMail") = Me.tbEMail.Text
 
            End With
            Me.OleDbDataAdapter1.Update(Me.KundenDataset1, "Kunden")
 
            Me.btFertig.Visible = False
            Me.BtAbbrechen.Enabled = False
            Me.BtNeu.Enabled = True
            Me.BtÄnderen.Enabled = True
 
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            MsgBox(ex.Message)
            Me.Cursor = Cursors.Default
        End Try