Заполнение БД запросом на VBScript-е

Добрый день я использую Access 2003. написал скрипт который с текстовых файлов должен заполнять таблици в Access. Но ри запуски скрипта ругается :(
Ошибка: Невозможно использование подключения для выполнения операции. Оно закрыто или не доступно в данный момент.
Источник: ADODB.Recordset

Set crr = CreateObject("ADODB.Recordset")
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= e:\INFO.mdb;"

Function fsqlTrades(issueid,datef,price,quant,totalpr,status)
dim sqlzap
sqlzap= "insert into TradesKBM ([date],isuueid,pricet,quantityt,totalpricet,status) values (Cdate('"&datef&"'),'"&issueid&"',"&price&","&quant&","&totalpr&",'"&status&"')"
fsqlTrades = sqlzap
end Function
......
cnn.Open
sql2= fsqlTrades(ARstrok(0),idatetemp,ARstrok(4),ARstrok(5),ARstrok(6),ARstrok(7))
crr.open sql2, cnn
....
cnn.Close

рыдаль

Если можно через DAO, то могу привести свой модуль импорта данных из текста, переделаешь под себя!

George-III

Если можно через DAO, то могу привести свой модуль импорта данных из текста, переделаешь под себя!

К сожелению я незнаю что такое DAO.
У меня оснавная проблема с конектом. Все запросы формируются правильно. Покрайней мере раньше их заносил в МS SQL, но его уже нету. Поэтому вынужден использовать Access.

cnn.Execute sql2

вместо: crr.open...

А еще значение даты должно иметь специалиный формат, а десятичный разделитель - "."

Konst_One

cnn.Execute sql2 вместо: crr.open...

Спасибо помогло :)