คือผมได้อ่านจากกระทู้ต่างๆ แล้วนำมาทำตาม แต่ก็ยังไม่ได้ครับ
ต้องการที่จะเชื่อม combobox 2 อัน ให้มีความสัมพันธ์กันครับ

Private Sub Combo109_Click()
    Dim strCombo109 As String
    Dim sql1 As String
    
    strCombo109 = Combo109.Column(1)
    
    sql1 = "SELECT [ร้านค้า].[Supplier Code], [ร้านค้า].[Supplier Name]"
    sql1 = sql1 & "FROM ร้านค้า.Supplier Code"
    sql1 = sql1 & " WHERE (ร้านค้า.Supplier Name)=   '" & strCombo109 & "' ORDER BY [ร้านค้า].[Supplier Code]; "
    Combo87.RowSource = sql1
    Combo87.Requery
    Combo87.Enabled = True
End Sub

แต่มัน run ดูครับ
error ข้อผิดพลาดทางไวยากรณ์(ตัวดำนเนินการหายไป) ในนิพจน์แบบสอบถาม (ร้านค้า.Supplier)

ไม่ทราบว่าเป็นเพราะอะไรครับ
ขอบคุณมาก