Visual Basic

Function Byt(ByVal v as Integer) As Byte
  Return CByte(v and 255)
End Function

Function HexArr(ByVal dat() as Byte) As String  ' Returns hex representation of array

Function ByteString(ByVal dat() as Byte, ByVal Length As Integer) As String ' Converts bytes to string (by character code)

Sub Zap(ByRef it as iDisposable)
  Dim oldIt as iDisposable
  oldIt = it
  If oldIt IsNot Nothing then
    oldIt.Dispose
    Threading.Interlocked.CompareExchange(it, Nothing, oldIt)
  EndIf
End Sub

<br />
    Private Sub dataGridAccess()<br />
<br />
        Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessFile<br />
        Dim myConnection As OleDbConnection = New OleDbConnection<br />
        myConnection.ConnectionString = connString<br />
        myConnection.Open()<br />
<br />
<br />
        Dim myTable As String = "RealTimeWQActual"<br />
        Dim myCmd As String = "Select * from " & myTable & " ORDER BY sdate"<br />
        ' create a data adapter <br />
        Dim da As OleDbDataAdapter<br />
        Try<br />
            da = New OleDbDataAdapter(myCmd, myConnection)<br />
        Catch ex As Exception    ' Catch the error.<br />
            MsgBox(ex.ToString)   ' Show friendly error message.<br />
        End Try<br />
<br />
        MsgBox(myTable & "  " & myCmd)<br />
        ''Dim dr As New OleDbDataReader<br />
        ' Create command builder<br />
        Dim CB As OleDbCommandBuilder = New OleDbCommandBuilder(da)<br />
        ' create a new dataset <br />
        Dim ds As DataSet = New DataSet<br />
        ' fill dataset <br />
        da.Fill(ds, myTable)<br />
        ' Insert code to populate the DataTable with rows.<br />
        ' Set the DataSource and DataMember of the DataGrid control.<br />
        DataGrid1.SetDataBinding(ds, myTable)<br />
<br />
        Dim dt As DataTable = ds.Tables(myTable)<br />
        Dim rrows = dt.Rows.Count<br />
        MsgBox("rrows= " & rrows)<br />
<br />
        ' NewRow to create a DataRow.<br />
        Dim row As DataRow<br />
        row = dt.NewRow()<br />
<br />
        ' Then add the new row to the collection.<br />
        row("SDATE") = "1"<br />
        row("STIME") = "1"<br />
        row("Parameter") = "1"<br />
        row("Value") = "1"<br />
        row("d1") = "1"<br />
        row("d2") = "1"<br />
<br />
        dt.Rows.Add(row)<br />
        '**** error comes at the next step ***<br />
        da.Update(ds, myTable)<br />
        '**** Program runs without the previous step and dataTable shows the added row<br />
        myConnection.Close()<br />
<br />
<br />
    End Sub<br />

 Private Sub LoadReloadProcList(ByVal strsql As String)
        Try
            'Me.Controls.Remove(dgvProcs)
            Dim daMyList = New SqlCeDataAdapter(strsql, myDB.cn)
            Dim dsMyList = New DataSet
            daMyList.Fill(dsMyList)
            Dim myBinding As New BindingSource
            myBinding.DataSource = dsMyList
            Me.dgvProcs.DataSource = myBinding
            Me.dgvProcs.DataMember = "Table"
            Me.dgvProcs.Columns(0).HeaderText = "Name"
            Me.dgvProcs.Columns(0).Width = Me.dgvProcs.Width * 0.75
            Me.dgvProcs.Columns(1).HeaderText = "Barcode"
            Me.dgvProcs.Columns(1).Width = Me.dgvProcs.Width * 0.15
            Me.Controls.Add(dgvProcs)
        Catch ex As Exception
#If DEBUG Then
            MsgBox(ex.Message)
#Else
            MsgBox("There was a problem gathering information on your previous procedures.  If this problem persists please contact your distributor.")
#End If
        End Try
    End Sub