Dim datAdapt As New OleDb.OleDbDataAdapter("Select * From CigUnits", cn2)
Dim commBuild As New OleDb.OleDbCommandBuilder(datAdapt)
Dim datSet As New Data.DataSet()
Dim datRow As Data.DataRow
datSet.Clear()
datAdapt.Fill(datSet, "CigUnits")
datRow = datSet.Tables("CigUnits").NewRow
datRow.Item("EmpID") = Request.Cookies("EmpID").Value
datRow.Item("Store") = datRead.Item("location")
datRow.Item("BusiDate") = datRead.Item("Date")
datRow.Item("PC") = datRead.Item("ProductCode")
datSet.Tables("CigUnits").Rows.Add(datRow)
datAdapt.Update(datSet, "CigUnits")