dt.Rows(0)("Tätigkeit") = Combo_Tätigkeit.Text
dt.Rows(0)("Grundsatz") = api.uszahl(CStr(Combo_Grundsatz.SelectedValue))
dt.Rows(0)("Gefährdung") = T_Beschreibung.Text
 
sqlcn.Open()
bm.EndCurrentEdit()
da.Update(dt)
sqlcn.Close()
Me.Close()

sqlcn.Open()
sql = "SELECT * FROM Tätigkeit WHERE Tätigkeit.Nr = " & api.GUID_String(mytat)
da = New System.Data.SqlClient.SqlDataAdapter(sql, sqlcn)
da.UpdateCommand = dal.GetUpdatecommand(da, "Tätigkeit", "Nr", mytat)
da.UpdateCommand.Connection = sqlcn
ds = New DataSet("Dataset1")
da.Fill(ds, "Dataset1")
dt = ds.Tables(0)
sqlcn.Close()
bm = Me.BindingContext(dt)