Si scusami cercherò di essere più preciso:
Allora uso il component MSComm per la seriale leggo il messaggio e lo metto in un text perchè deve essere visibila a video tutti i mess che registra:

Text1.Text = Text1.Text & MSComm1.Input

una volta manipolato il messaggio e estratto i valori chemi servono vado a scriverli nel db

Query = "INSERT INTO accessi (porta,data,ora,codice,tipo) VALUES('" & Porta & "','" & mData & "','" & Ora & "','" & Cod & "','" & Tipo & "')"

rsAccessi.Open Query, Conn, 3

IL databese e un server MYSql 5

inoltre una volta inserito chiudo e apro la porta peche altrimenti il secondo messaggio lo prende sbagliato.

MSComm1.PortOpen = False
MSComm1.PortOpen = True

Queste sono le impostazioni dell'oggetto MSComm

MSComm1.Settings = "9600,N,8,1"