高手紧急求救！待。一条关于datacombo的有关问题！

高手紧急求救！在线等待。一条关于datacombo的问题！！！
Dim   oRS           As   New   ADODB.Recordset
    Dim   oConn           As   New   ADODB.Connection
       
                   
                    '连接字符串的路径自己改过来
                    oConn.Open   "Provider=MSDASQL.1;Persist   Security   Info=False;User   ID=sa;Data   Source=qcxlk "
                       
                      oRS.Open   "select       *       from       xlxmk ",   oConn,   adOpenDynamic,   adLockOptimistic

       
                    Set   DataCombo1.RowSource   =   oRS
                    DataCombo1.ListField   =   "xlxmsm "
                    DataCombo1.Text   =   xlxmh


我始终没有办法在修改datacombo的时候把相应的xlxmh值放到datacombo.text。

高手求救！！有什么办法呢？

[解决办法]
Private Sub Command1_Click()
Dim oRS As New ADODB.Recordset
Dim oConn As New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\haoz\My Documents\aa.mdb;Persist Security Info=False "
oRS.CursorLocation = adUseClient
oRS.Open "select * from aa ", oConn.ConnectionString, adOpenDynamic, adLockOptimistic, adCmdText
Set DataCombo1.RowSource = oRS
DataCombo1.ListField = "x "
DataCombo1.Text = oRS.Fields( "x ").Value
End Sub


你的要求没看明白，是不是datacombo填充后，想显示出字段值？