Ok, i've adjusted my code to:
Dim accApp As Object
Dim strOrder As String, strCode As String
'DFII = txtDFIName.Value
strSQL = "INSERT INTO [Database.mdb].PDI ([Part No],[PDI Date],[P_Score],[Risk_Score])" & _
"VALUES (""" & P & """," & "#" & dt & "#" & ",""" & S & """, " & R & ")"...