Visual Basic - Datacombo por codigo BOUNDTEXT

Ante todo gracias por el tiempo prestado
El problema es que deseo capturar en cuadro texto el valor mediante la propiedad BOUNTEXT del DATACOMBO pero, el caso que me sale el contenido del BOUNDLIST, raro no... por si acaso aqui presento la porcion de codigo en el que tengo problema.

Private Sub dcpro_Click(Area As Integer)
Call SQLDB(AdoProv2, "Select pvmpv_codigo, pvmpv_razon from maestro_proveedores")
With dcpro
Set .RowSource = AdoProv2
.ListField = "pvmpv_razon"
.BoundColumn = "pvmpv_codigo"
End With
txtprov.Text = dcpro.BoundText
End Sub

el la primera vez que trtato de hacer esto todo por codigo, siempre he llenado el ADO por sus propiedades, y he probado eso y todo bien. pero el caso es que casi todo lo tengo definido por codigo.

GRACIAS por el tiempo
un saludo
Marcelo

Eatas tratando de enlasarlo a una tabla en el evento de click. Nesecito ver mas del codigo para, ve este ejemplo
Option Explicit
\'Referencia el la libreria ADO 2.7
\'Verifica la base de datos
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub DataCombo1_Click(Area As Integer)
If Area = dbcAreaList Then
Text1 = DataCombo1.BoundText
End If

End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = \"Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\\Archivos de programa\\Microsoft Visual Studio\\VB98\\Biblio.mdb;\"
cnn.Open
Set rs = New ADODB.Recordset
rs.Open \"Select * From Authors\", cnn, adOpenStatic, adLockOptimistic, adCmdText
\'Author

Set DataCombo1.RowSource = rs
DataCombo1.ListField = \"Author\"

End Sub

hola queria preguntar q como en data combo ya conentada con uan base de dato quiero seleccionar una de palabra de lo q contiene y me aparece un formulario con uan lista y selañalandome el nombre q selecciones

como se pasa los datos de una data ist a una datacombo..................quiero saber para que sirven