NSs Sama

Hello sir please i need your help please, Im using the same arduino code as urs and modCOMM as mudule for Msaccess, but the data is not reaching the arduino for no reasion knowing that RX and L led on arduino are blinking Here's the VBA code Im using with my form Private Sub Searchbox1_AfterUpdate() Searchlist1.Requery End Sub Private Sub Searchlist1_Click() With Searchlist1 LIGNE4.Value = .column(3) COLONNE4.Value = .column(2) End With End Sub Private Sub Trouver_Click() Dim intPortID As Integer Dim lngStatus As Long Dim strData As String Dim strError As String On Error Resume Next intPortID = 1 lngStatus = CommOpen(intPortID, "COM" & CStr(intPortID), "baud=9600 parity=N data=8 stop=1") If lngStatus <> 0 Then lngStatus = CommGetError(strError) MsgBox "COM Error: " & strError End If lngStatus = CommSetLine(intPortID, LINE_RTS, True) lngStatus = CommSetLine(intPortID, LINE_DTR, True) strData = LIGNE4.Value & COLONNE4.Value lngStatus = CommWrite(intPortID, strData) If lngStatus <> lngSize Then End If lngStatus = CommRead(intPortID, strData, 64) If lngStatus > 0 Then ElseIf lngStatus < 0 Then End If lngStatus = CommSetLine(intPortID, LINE_RTS, False) lngStatus = CommSetLine(intPortID, LINE_DTR, False) Call CommClose(intPortID) End Sub