Public Sub update_projectdata_value(ByVal name As String, ByVal value As _
     String)
 
        MeinDataSet.PROJECTDATA.BeginLoadData()
 
        Dim Obj(2) As Object
 
        Obj(0) = System.DBNull.Value
        Obj(1) = name
        Obj(2) = value
 
        MeinDataSet.PROJECTDATA.LoadDataRow(Obj, True)
 
        MeinDataSet.PROJECTDATA.EndLoadData()
 
    End Sub