Visual Basic - Muchas gracias a la respuesta

/***Lo que queria era lograr capturar mediante la propiedad BOUNDTEXT el valor del código del registro mostrado en la lista del DATACOMBO, tu ejemplo me sirivio de mucho, pero agregue una linea para lograr lo que queria.

Te agradezco por el tiempo y veo que en este foro hay realmente programadores serios, es la primera vez que participo de uno, en el futuro tratare yo tambien de aportar un poco con lo que se...

Saludos
Marcelo

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"
' linea aumentada
DataCombo1.BoundColumn = "Au_ID"
End Sub