下拉菜单连接access，如何使text控件显示对应的字段

我想是下拉菜单显示access数据库的船舶表的船舶名后，text2相应显示船舶表中这条船的吨位。我不知道代码怎么写，写在哪里？麻烦各位了告诉我一声，谢谢各位
Private Sub Form_Load()
bAdd = False
Dim strsql2 As String
Dim rs As New ADODB.Recordset
strsql2 = "select * from [船舶表] order by id"
Set rs = queryext2(strsql2)
i = 0
With Combo1
Do While Not rs.EOF
.AddItem rs("船名")
.ItemData(i) = rs("id")
rs.MoveNext
i = i + 1
Loop
End With
strsql2 = "select * from [货物表] order by id"
Set rs = queryext3(strsql2)
i = 0
With Combo2
Do While Not rs.EOF
.AddItem rs("货物名称")
.ItemData(i) = rs("id")
rs.MoveNext
i = i + 1
Loop
End With
strsql2 = "select * from [航线表] order by id"
Set rs = queryext4(strsql2)
i = 0
With Combo3
Do While Not rs.EOF
.AddItem rs("航线名称")
.ItemData(i) = rs("id")
rs.MoveNext
i = i + 1
Loop
End With
Adodc1.ConnectionString = conn
Adodc1.RecordSource = "select * from[船舶申报表]"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).Visible = False

End Sub

---

假设你的船舶表中有字段"吨位"
VB code

---

Code highlighting pr