Visual Basic

Dim information As TcpConnectionInformation
                For Each information In IPGlobalProperties.GetIPGlobalProperties.GetActiveTcpConnections
                    If (information.RemoteEndPoint.Address.ToString = readerIp) Then
                        state = CInt(information.State)
                    End If
                Next

 Dim objTCP As New TcpClient
    Dim sslstream As Net.Security.SslStream
    Dim reader As StreamReader = Nothing
objTCP.Connect("imap.gmail.com", 143)
sslstream = New Net.Security.SslStream(objTCP.GetStream())
sslstream.AuthenticateAsClient("imap.gmail.com") ' authenticate as client  GMAIL
            reader = New IO.StreamReader(sslstream) '  Assigned reader to stream 

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 />