Base de datos acces

[meru-kun]

iutunoi, como bien te ha dicho Motki, chkString es una función que tienes que tener declarada previamente (lo había dejado claro antes :P), para limpiar de caracteres no deseados. De momento, y en lo esencial, podrías hacerla así:
sub chkString(string)
string = replace(string,"'", "''")
chkString = string
end sub

Con eso te funcionará el ej. Si no te quieres complicar, simplemente quita lo de chkString, ya verás como sí que te va ahora.

Saludos.