Need some help please on creating Service for PABX Data Dumper Using VB 2005

[Lemune]

Hello everyone. I'm creating windows service application to capture
data from my PABX, and send the data to sql server. My question is how
could my application know when that PABX is sending data and not? I get
really confused here. Please check my code and give me some idea or
clue or help please :). Thanks in advance. My code is like this:

Dim DBConnection As SqlConnection
Dim WithEvents SPConnection As SerialPort = New
System.IO.Ports .SerialPort
Dim RawData As String

Private Sub ConnectingDB()

Dim connectionStrin g As String = _
"Integrated Security=SSPI;P ersist Security Info=False; " + _
"Initial Catalog=PABX;Da ta Source=USER/SQL2000"
DBConnection = New SqlConnection(c onnectionString )

DBConnection.Op en()

End Sub
Private Sub SPConnection_Da taReceived(ByVa l sender As Object, _
ByVal e As System.IO.Ports .SerialDataRece ivedEventArgs) _
Handles SPConnection.Da taReceived
RawData = SPConnection.Re adExisting()
SavetoDB()
End Sub

Private Sub SavetoDB()
Dim sqlTran As SqlTransaction = DBKoneksi.Begin Transaction()
Dim command As SqlCommand = DBKoneksi.Creat eCommand()
command.Transac tion = sqlTran

Try
command.Command Text = _
"INSERT INTO SampleTable VALUES(RawData) "
command.Execute NonQuery()
sqlTran.Commit( )
Console.WriteLi ne("Both records were written to database.")
Catch ex As Exception
Console.WriteLi ne(ex.Message)
Console.WriteLi ne("Neither record was written to
database.")
sqlTran.Rollbac k()
End Try

End Sub

Protected Overrides Sub OnStart(ByVal args() As String)
With SPConnection
.PortName = "COM1"
.BaudRate = 57600
.Parity = Parity.None
.DataBits = 8
.StopBits = StopBits.One
End With
SPConnection.Op en()
ConnectingDB()
End Sub

Protected Overrides Sub OnStop()
SPConnection.Cl ose()
DBConnection.Cl ose()
End Sub