dim Wk as WorkSpace
dim con1 as connection

Set Wk = CreateWorkspac("newodbcworkspace", "sa", "",dbUseODBC)

Set Con1 = Wk.OpenConnection("connection1", ,_ true, "odbc;database=xp_pc;dsn=xp_pc")

แบบนี้ทำงานได้ครับ แต่ถ้าไม่อยากเปิด WorkSpace ใหม่ ผมลองเขียนแบบนี้

Set Con1 = DBEngine(0).OpenConnection("connection1", ,_ True, "odbc;database=xp_pc;dsn=xp_pc")
แบบนี้ทำงานไม่ได้ครับ

"Operation is not support for this type of object"
สรุปว่าผมจำเป็นต้องเปิด WorkSpace ใหม่ ใช่ไหมครับ เพราะเป็น Data จาก ODBC หรือจะเขียนอย่างไรครับ ถ้าไม่ต้องเปิดใหม่(เพราะมันน่าจะต่างจาก DbUseJet)