datacombo中的boundtext值能被其他控件调用吗？

Option Explicit
Public MyConnection As New ADODB.Connection '定义数据库对象
Public MyRecordset As New ADODB.Recordset '定义记录集对象
Public DBName As String '定义数据库名称变量
Private Sub Form_Load()
DBName = App.Path & "\db1.mdb" '数据库路径
With MyConnection '设置连接的属性
.Provider = "Microsoft.Jet.OLEDB.4.0" '连接引擎
.Mode = adModeShareExclusive '独占打开
.Open DBName '打开数据库
End With
Dim sqlstr As String
Set MyRecordset = Nothing '让结果集等于空
sqlstr = "SELECT * FROM tab_bus AS t"
With MyRecordset
.ActiveConnection = MyConnection
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.Open sqlstr, MyConnection, , , adCmdText
End With
Set DataGrid1.DataSource = MyRecordset '结果集赋结表格
End Sub