ทำได้ครับ ก็ใช้คำสั่งคนละครั้ง แต่ให้อยู่ภายในเหตุการณ์เดียวกันครับ
ตัวอย่างคร่าวๆ ครับ
private sub ปุ่ม_select_click()
textbox1=ผลการค้นหาจากตาราง1 ด้วยเงื่อนไข textbox0
textbox2=ผลการค้นหาจากตาราง2 ด้วยเงื่อนไข textbox0
end sub

Private Sub select_Click()

Dim txtSQL As String table 1
    txtSQL = "select * from qr_grpby_pitem where P_Item_Code = '" & itemcd & "' "
    Me.RecordSource = txtSQL
    Me.txt_Code.ControlSource = "P_Item_Code"
    Me.itemnm.ControlSource = "P_Item_Name"

Dim tt As String   table 2
   tt = "select * from qr_grpby_pitem2 where P_Item_Code = '" & itemcd & "' "
    Me.RecordSource = tt
    Me.Code2.ControlSource = "P_Item_Code"
    Me.itemnm2.ControlSource = "P_Item_Name"

จากโค๊ดด้านบนนะคับ มันไม่ออกให้เลยคับ เลยงง ขอคำแนะนำด้วยคับ

Private Sub select_Click()
me.txt_Code=itemcd
me.itemnm=dlookup("P_item_name","qr_grpby_pitem","[P_Item_Code] = '" & itemcd & "'")
me.Code2=itemcd
me.itemnm2=dlookup("P_item_name","qr_grpby_pitem2","[P_Item_Code] = '" & itemcd & "'")
End sub