Dim conn As New ADODB.Connection
  Dim rss As New ADODB.Recordset
  conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DBQ=C:\temp\db1.mdb;DefaultDir=C:\temp;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"""
  conn.Open
  Set rss = conn.Execute("select replace(code;' ';'') as fil1 from sc84")

Выдает ошибку синтаксиса replace

пробовал через JET.4.0 и через DAO (результат такой же)
замена ";" на "," привела к "незвестная функция replace"

Может кто подскажет, как динамически убрать все пробелы в полях запроса

База MDB, изменения базы запрещены, поля 50-100 символов, количество пробелов — RND