Is the first time I use access to an mdb in VisualLisp. If you have another suggestion, thank you.
(vl-load-com)
(setq fn (findfile "d:\\test.mdb"))
(setq processor_type (getenv "processor_architecture"))
(if (= processor_type "AMD64")
(setq strconn (STRCAT "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" fn))
(setq strconn (strcat "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" fn ";Persist Security Info=False"))
)
(setq ADOConnect (vlax-create-object "ADODB.Connection")
ADORecordset (vlax-create-object "ADODB.Recordset")
)
(vlax-invoke-method ADOConnect "Open" strconn "Admin" "" 0)