Passa all'utilizzo di Query parametrizzate . Questo ti aiuterà. Il numero di parametri corrisponderà al numero di colonne nella tabella nell'ordine. Crea gli oggetti ADO quando ne hai bisogno e chiudili alla fine delle routine Sub.
Insert Into [table name] Values(n1, n2, etc...)