A few tips for troubleshooting/prevention:
* Use an extra variable for the concatenated SQL text, then you can output the content more easily.
Public Sub inToDisc(dFamily As String, sFamily As String, nAccno As Double, sStr As String)
dim InsertSql as String
InsertSql = "INSERT INTO...