Visual Basic

Dim rctcon as connection<br />
rctcon.connectionstring=MYstring<br />
rctcon.recordsource= "select * from mylist"<br />
set txtpolicy.datasource= rctcon<br />
txtpolicy.datafield="policyno"

<br />
Private Sub connection()<br />
<br />
mySerial = New SerialPort("COM9", 9600, IO.Ports.Parity.None, 8, IO.Ports.StopBits.One)<br />
mySerial.Encoding = System.Text.Encoding.GetEncoding(1252)<br />
mySerial.Open()<br />
            <br />
End Sub

<br />
Dim buffer1 As Byte() = {&H2, &HB0, &HB2}<br />
sending(buffer1)

<br />
Private Sub sending(ByVal buffer As Byte())<br />
<br />
Dim i As Integer<br />
<br />
Dim count = buffer(0)    'buffer(0) includes the number of the following bytes<br />
          <br />
'Here i want to write byte by byte to the com port<br />
<br />
For i = 0 To count             <br />
   mySerial.Write(Chr(buffer(i)))<br />
Next<br />
<br />
End Sub

<br />
Private Function reading() As Byte()<br />
<br />
Dim readbuffer As Byte() = {}<br />
<br />
'setting the readbuffer to the size of bytes it has to read from the port<br />
<br />
ReDim readbuffer(mySerial.BytesToRead() - 1)        <br />
<br />
'read bytes from the serial port<br />
<br />
mySerial.Read(readbuffer, 0, mySerial.BytesToRead)  <br />
<br />
reading = readbuffer<br />
<br />
End Function