ผมไม่เคยใช้ และผมก็ไม่ได้ค้นดูตามที่คุณ paitoon กล่าวถึง จึงไม่รู้ว่า วิธีการดังกล่าว น่ะ เป็นอย่างไรบ้าง

แต่ขอแนะอีกทางเลือกได้ไหมครับ ไม่ต้อง เชื่อมโยงตารางครับ

- ประกาศตัวแปร public ไว้ที่ Module
Public Conn As ADODB.Connection

-สร้างฟังก์ชั่นเชื่อมต่อไว้ที่ module
Public Funtion ConnOpen() as integer
Dim strConn as string
strConn----- เขียนสตริงการเชื่อมต่อ พร้อมด้วย พาสเวอร์ดไว้ในนี้
On error resume next
Conn.Open strConn
if Conn.state=1 then ConnOpen=True else ConnOpen=False
End Function

-สร้างฟังก์ชั่น ตัดการเชื่อมต่อ ไว้ที่ Module
Public Function ConnClose()
if Conn.State<>0 the Conn.Close
End Function


-----------------------------------
ตัวอย่างการทำงานเมื่อจะ Insert Data จากฟอร์ม
Dim sql as string
sql = "Insert Into table1 values('kkk')"
if ConnOpen then
Conn.execute sql
ConnClose
else
------------ การเชื่อมต่อมีปัญหา ------------
end if


วิธีนี้ ผมคิดว่า ตราบใดที่ user ไม่เปิดเข้าดู VBA คงไม่จำเป็นต้องรู้ พาสเวอร์ด
แต่ก็ ผมลองๆ คิดๆ เอานะครับ ยังไม่เคยลองใช้ ไม่รู้ว่าคุณ Paitoon ลองหรือยัง มีติดขัดอะไรหรือเปล่า

ขอบคุณสำหรับคำแนะนำครับ แต่ผมก็ยังไม่เคยลองทำ แต่ผมเคยอ่านผ่านกระทู้ไหนจำไม่ได้เคยเจอปัญหาแบบเดียวกับผม ถ้าใครมีคำแนะนำอีกก็ช่วยด้วยครับ

งั้น ..เดี่ยวขอไปลองทำตามที่คุณ yeadram แนะนำก่อนครับ


ขอบคุณครับ
paitoon

ไม่ต้องทำ conn = nothing หรือครับ?

ควรจะทำครับ แนะนำว่า ต้องทำเลย

แต่ที่ให้โค้ดไป คือคร่าวๆ ครับ
ในฟังก์ชั่น เปิด ก็ต้อง set Conn ด้วย
ในฟังก์ชั่น ปิดก็ต้อง set Conn ด้วยครับ