Visual Basic - RE:Datacombo por codigo BOUNDTEXT

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