Private Sub dsUpdate(ByVal Tab, ByVal dv, ByVal ds, ByVal gr, ByVal ho_art)
               'tab = "Privat"  =Tabregister
                'dv = DataView0  = Dataview
                'ds = dsHoroskope0 = dataset
                'gr = grPrivat =grid
        Dim msgtext As String
        msgtext = "Möchten Sie die Änderungen speichern?"
        If MsgBox(msgtext, MsgBoxStyle.YesNo, "Info") = MsgBoxResult.Yes Then
            If pruefEingabe() = False Then
                MsgBox("Sie haben nicht alle berechnungsrelevanten Felder" & _
                  "ausgefüllt !", MsgBoxStyle.Information, "Info")
                Exit Sub
            End If
 
 
            With ds.Tables("Horoskope").Rows
                .Item("Name") = Nachname.Text
                .Item("Vorname") = Vorname.Text
                .Item("Gebdat") = GebDat.Text
                .Item("Gebzeit") = GebZeit.Text
                .Item("Gebort") = Ort.Text
                If rbMann.Checked = True Then
                    .Item("geschlecht") = "M"
                Else
                    .Item("geschlecht") = "W"
                End If
                If SZ2.Checked = True Then
                    .Item("Sommerzeit") = "2"
                ElseIf SZ3.Checked = True Then
                    .Item("Sommerzeit") = "3"
                Else
                    .Item("Sommerzeit") = "1"
                End If
                .Item("BGrad") = geolat.Text
                .Item("BMin") = geolatMin.Text
                .Item("BNordSued") = VB.Left(geolatNS.Text, 1)
                .Item("LGrad") = geolon.Text
                .Item("LMin") = geolonMin.Text
                .Item("LOstWest") = VB.Left(geolonOW.Text, 1)
                .Item("Zeitzone") = Zeitzone.Text
                .Item("ZOstWest") = VB.Left(Zone_OW.Text, 1)
                .Item("Haussystem") = VB.Left(Haussystem.Text, 1)
                .Item("HO_art") = ho_art
            End With
 
            OleDbDataAdapter1.Update(ds, "Horoskope")
            MsgBox("Horoskop wurde geändert", MsgBoxStyle.Information, "Info")
            'Catch ex As Exception
            '    MsgBox("Fehler beim Speichern !", MsgBoxStyle.Critical, "Info")
            '    End Try
        End If
 
    End Sub