Datacombo y TextBox

EdW@rd
07 de Agosto del 2003
Saludos,tengo elsiguiente problemita, tengo un datacombo conectado a una base de datos en el campo de ID,que pasa quiero que al seleccionar un ID automaticamente me aparezca el nombre de la persona que tiene ese ID en el textbox
hasta ahora tengo algo asi

Private Sub Text2_Change()
D1.rsCommand1.Close
Dim sql As String
sql = "select usuario from usuarios where panel = '%" & DataCombo1.Text & "%'"
D1.rsCommand1.Source = sql
D1.rsCommand1.Open
Text2.DataMember = "command1"

pero no hace nada,Aggradeceria en el alma cualquier ayuda :)