import the decoded information/data into Microsoft Acess

[qwer]

hi
im actually doing on a SMS application using Visual Basic.Net whereby the objective is to allow the user to send a SMS to the visual basic programme and i should decode out the hp no, car plate, time in,time out and date.And finally import the data(hp number, car plate number....as stated earlier) into Miscrosoft Access.I have already successfully decoded the data and May I know how i can import the decoded information/data into Microsoft Acess so that it can be stored as database in order to be retrived in the later part.Below is my programme.
Thanks

Imports System.Data.OleDb
 
Public Class Form1
Dim WithEvents serialPort As New IO.Ports.SerialPort
Dim Data As String
Dim buffer As String
Dim Handphone_number As String
Dim datetime As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim msg$
Dim Content As String
 
Const HEADER = """REC UNREAD"""
Const EOM = "EOM"
Private Const cnstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = carpark.mdb"

-------------------------------------------------------------------------------------------------------------------

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
Timer1.Enabled = True
 
Try
With serialPort
.PortName = "COM12"
.BaudRate = 115200
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
End With
serialPort.Open()
 
MsgBox(" connected.")
Try
serialPort.Write("ATE" + vbCr)
 
 
Catch ex As Exception
MsgBox(ex.ToString)
End Try
 
 
Catch ex As Exception
MsgBox(ex.ToString)
End Try
 
 
End Sub

-------------------------------------------------------------------------------------------------------------------

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
Try
serialPort.Write("AT+CMGL=""REC UNREAD""" & vbCr)
 
Catch ex As Exception
MsgBox(ex.ToString)
End Try
 
 
'MSComm1.Output = "AT+CMGL=""REC UNREAD""" & vbCr
End Sub

--------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Decode(ByVal m As String)
Dim timestr As String
Dim datestr As String
Dim car_plate As String
 
 
i = InStr(1, m, """")
If (i > 0) Then
j = InStr(i + 1, m, """")
If (j > 0) Then
Handphone_number = Mid(m, i + 1, j - i - 1)
MsgBox("The Handphone number is:" + Handphone_number)
 
 
i = InStr(j + 1, m, """")
If (i > 0) Then
j = InStr(i + 1, m, """")
If (j > 0) Then
datetime = Mid(m, i + 1, j - i - 1)
datestr = Mid(datetime, 1, 8)
timestr = Mid(datetime, 10, 8)
MsgBox("The date is: " + datestr)
MsgBox("The time is: " + timestr)
 
 
car_plate = Mid(m, j + 1)
MsgBox("The car plate number is: " + car_plate)
 
End If
End If
 
End If
End If
End Sub

-------------------------------------------------------------------------------------------------------------------

Private Sub DataReceived( _
ByVal sender As Object, _
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles serialPort.DataReceived
 
Dim somemore As Boolean
 
buffer = buffer + serialPort.ReadExisting
somemore = True
Do While somemore = True
 
i = InStr(buffer, HEADER)
If (i > 0) Then 'beginning of message found
 
j = InStr(i, buffer, EOM)
If (j > 0) Then 'end of message found
 
msg$ = Mid(buffer, i + Len(HEADER), j - i - Len(HEADER))
MsgBox(msg, vbInformation, "TEST")
 
Call Decode(msg$)
buffer = Mid(buffer, j + Len(EOM))
If Len(buffer) = 0 Then
somemore = False
End If
 
Else
somemore = False
End If
Else
somemore = False
End If
Loop
 
End Sub

-------------------------------------------------------------------------------------------------------------------

Private Sub executeDataCommand(ByVal s As String)
Dim cmd As OleDbCommand
Dim cn As New OleDbConnection(cnstr)
 
cn.Open()
cmd = New OleDbCommand(s, cn)
cmd.ExecuteNonQuery()
End Sub

-------------------------------------------------------------------------------------------------------------------

Private Function executeDataRead(ByVal s As String) As OleDbDataReader
Dim rd As OleDbDataReader
Dim cmd As OleDbCommand
Dim cn As New OleDbConnection(cnstr)
 
cn.Open()
cmd = New OleDbCommand(s, cn)
 
rd = cmd.ExecuteReader()
executeDataRead = rd
End Function
 
End Class

-------------------------------------------------------------------------------------------------------------------

[Shashi Sadasivan]

Could you please put your code into [code] tags?
What issue are u really facing?
You are already reading an Access file right?

Cheers