First select just the records you need to INSERT: because Access doesn't support the SQL EXCEPT clause, you need to use a LEFT JOIN:
SELECT A.x FROM A
LEFT JOIN B
ON A.x = B.x
WHERE B.x IS NULL
Then you can just INSERT those into your TableA
Get the SELECT working first in a straight Access query, then add the INSERT to your VB code.