Option Compare Database
Private db As Database
Private rs As Recordset 'ประกาศตัวแปรเก็บตำแหน่งฐานข้อมูล
Private SourcePath As String
......................................................................................................................................................
Private Sub Form_Load()
On Error GoTo Err:
Dim intRecs As Integer 'ประกาศตัวแปรเพื่อนับจำนวนนักเรียนทั้งหมด
Dim lngRecord As Long
SourcePath = FindSource()

Set db = OpenDatabase("SourcePath", False, False, pwd = 1234)
Set rs = db.OpenRecordset("tblMainsubject")
.....................................................................................................................................................

Function FindSource() As String

Dim db As Database
Dim tbl As TableDef
Dim txtLinkedTable As String
txtLinkedTable = DFirst("Name", "MSysObjects", "[Type] = 6")
Set db = CurrentDb
Set tbl = db.TableDefs(txtLinkedTable)
FindSource = Mid(tbl.Connect, 11)

End Function

นี่คือ code ที่หนูเขียนไว้ค่ะ

ก็ให้กำหนด SourcePath ให้เป็น \\ServerName\Path\File.mdb

ครับ

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

อาจารย์ครับแล้วถ้าต้องการติดต่อกับ SQL 7.0 ในลักษณะเดียวกันนี้
Set db = OpenDatabase("SourcePath", False, False, pwd = 1234)
Set rs = db.OpenRecordset("tblMainsubject")
ช่วงด้านบนนี้ประกาศอย่างไรครับ

เนื่องจาก SQL 7 จะใช้แบบนี้ไม่ได้ครับ เพราะมีระบบการรักษาความปลอดภัยอีกรูปแบบหนึ่ง

ให้ดูตัวอย่างการติดต่อแบบใช้ ADO ในกระทู้ http://www.thai-access.com/suphap.php?topic_id=571 ที่ผมเคยแนะนำแล้วครับ