Probleme avec une requete sql

j ai cree une formulaire avec visual basic pour une base de donnees que j ai fais sur access mais sur la formulaire on peut ajouter un switch ensuite j ajoute les ports du switch et les information concernant mais acces refuse de rajouter dans la base de donnees car il dis il y a une faute de conversion de type et j arrive pas à trouvé le probleme avec ma rêquete sql.


code

Option Compare Database

Private Sub CmdAjout_Click()
On Error GoTo Err_CmdAjout_Click


    DoCmd.GoToRecord , , acNewRec

Exit_CmdAjout_Click:
    Exit Sub

Err_CmdAjout_Click:
    MsgBox Err.Description
    Resume Exit_CmdAjout_Click
    
End Sub
Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Commande17_Click:
    Exit Sub

Err_Commande17_Click:
    MsgBox Err.Description
    Resume Exit_Commande17_Click
    
End Sub
Private Sub Commande18_Click()
On Error GoTo Err_Commande18_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande18_Click:
    Exit Sub

Err_Commande18_Click:
    MsgBox Err.Description
    Resume Exit_Commande18_Click
    
End Sub
Private Sub Commande19_Click()
On Error GoTo Err_Commande19_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Commande19_Click:
    Exit Sub

Err_Commande19_Click:
    MsgBox Err.Description
    Resume Exit_Commande19_Click
    
End Sub
Private Sub Commande20_Click()
On Error GoTo Err_Commande20_Click

    Dim stDocName As String

    stDocName = "Requête"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande20_Click:
    Exit Sub

Err_Commande20_Click:
    MsgBox Err.Description
    Resume Exit_Commande20_Click
    
End Sub
Private Sub Commande21_Click()


On Error GoTo Err_Commande21_Click


    DoCmd.GoToRecord , , acNewRec

Exit_Commande21_Click:
    Exit Sub

Err_Commande21_Click:
    MsgBox Err.Description
    Resume Exit_Commande21_Click
    
End Sub

Private Sub Texte25_BeforeUpdate(Cancel As Integer)

End Sub
Private Sub CmdAppliquer_Click()

ici la faute  DoCmd.RunSQL ("INSERT INTO Ports VALUES ('" & Me.NumeroPort & "','" & Me.Etat & "','" & Me.Brassage & "','" & Me.Nom & "','" & Me.IP & "','" & Me.Codeport & "','" & Me.IPSwitch & "')")

On Error GoTo Err_CmdAppliquer_Click



    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_CmdAppliquer_Click:
    Exit Sub

Err_CmdAppliquer_Click:
    MsgBox Err.Description
    Resume Exit_CmdAppliquer_Click
    
End Sub
Private Sub Commande32_Click()
On Error GoTo Err_Commande32_Click


    DoCmd.Close

Exit_Commande32_Click:
    Exit Sub

Err_Commande32_Click:
    MsgBox Err.Description
    Resume Exit_Commande32_Click
    
End Sub