[Resolvido]Ler porta com 1

Boa noite a todos

Gostaria de saber se alguem podera me ajudar, preciso fazer uma rotina que leia a porta com1 ou com2, preciso fazer uma conexao com uma determinada balança Rodoviaria com meu software.

Tentei usar o Componete MsComm32.ocx, mas nao consegui exito em access da um erro de permissão.

Se alguem puder me ajudar, sera que e possivel fazer a leitura sem usar componentes????

Cara.. apesar de nao saber muito sobre o assunto dei uma pesquisada e consegui este codigo para VB se alguem com experiencia em VB puder lhe ajudar...

Dim intPortID As Integer ' Ex. 1, 2, 3, 4 for COM1 - COM4
Dim lngStatus As Long
Dim strError As String
Dim strData As String

' Initialize Communications
lngStatus = CommOpen(intPortID, "COM" & CStr(intPortID), _
"baud=9600 parity=N data=8 stop=1")

If lngStatus <> 0 Then
' Handle error.
lngStatus = CommGetError(strError)
MsgBox "COM Error: " & strError
End If

' Set modem control lines.
lngStatus = CommSetLine(intPortID, LINE_RTS, True)
lngStatus = CommSetLine(intPortID, LINE_DTR, True)
' Write data to serial port.
lngSize = Len(strData)
lngStatus = CommWrite(intPortID, strData)
If lngStatus <> lngSize Then
' Handle error.
End If

' Read maximum of 64 bytes from serial port.
lngStatus = CommRead(intPortID, strData, 64)
If lngStatus > 0 Then
' Process data.
ElseIf lngStatus < 0 Then

e o Tópico Amigão??

Encerrado Haryshon