SqlDataAdapter1.Fill(Ds_gruppen_add1)
        Dim anyRow As DataRow = Ds_gruppen_add1.table_Gruppen.NewRow
 
        anyRow(1) = TextBox1.Text
 
 
        Ds_gruppen_add1.table_Gruppen.Rows.Add(anyRow)
 
        SqlDataAdapter1.Update(Ds_gruppen_add1)
        Close()