ใช้ Access XP ; โดยสร้าง combo box ดึงข้อมูล CompId,CompName จาก tblCompanies หลังจากคลิกเลือกข้อมูลแล้ว combo box นี้จะแสดงชื่อ CompId และต้องการให้ txtCompName ข้างๆ แสดงชื่อ CompName โดยทำบนฟอร์ม frmInstocks ครับ
ผมใช้วิธีดังนี้ (แต่ไม่สำเร็จ)

dim db as database
dim rs1 as dao.recordset
set db=currentdb()
set rs1=db.openrecordset("tblCompanies",DB_OPEN_DYNASET)

private sub cboCompId_afterupdate()
dim tmpCompName as string
rs1.seek "=", cboCompId
if rs1.nomatch = false then
tmpCompName=rs1.fields("CompName").value
txtCompName.value=tmpCompName
else
...
end if
end sub

แต่ไม่สำเร็จ ดึงชื่อมาไม่ได้ แก้ไงครับ