Bueno, acabo de recordar algo que te puede servir !!
Aunque en Visual Basic no hay un tipo de dato "Money" si que se puede dar ese formato a datos utilizando la función Format.
Como todos los tipos especialitos en las bases de datos, realmente son cadenas de caracteres que siguen un formato concreto.
En éste caso, he echado un ojo con el Google para comprobarlo, y he visto que bueno, como me imaginaba el formato del tipo moneda simplemente son 2 o 3 decimales y los miles/millones separados con "."
Resumiendo:
Creo que te funcionará si sustituyes la linea
Código:
vTBase = CDec(TxtTotalBase.Text)
Por ésta:
Código:
vTBase = Format(TxtTotalBase.Text, currency)
Y el INSERT utilizando las comillas simples, como lo tenias ya inicialmente.
Saludos