Dim DR As DataRow
          DR = ds.Tables("Horoskope").NewRow()
          DR("HO_ID") = Guid.NewGuid
          DR("Name") = Neunachname
 
           ds.Tables("Horoskope").Rows.Add(DR)
           Dim cb As New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
           OleDbDataAdapter1.Update(ds, "Tabelle")
           cb.Dispose()

                Dim rowIndex As Integer = dv.Count() - 1
                gr.Select(rowIndex)  
                gr.CurrentRowIndex = rowIndex