Visual Basic - Muchas gracias

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
Lo que queria lograr era obtener mediante la propiedad BOUNTEXT

Set DataCombo1.RowSource = rs
DataCombo1.ListField = "Author"
DataCombo1.BoundColumn = "Au_ID"
End Sub