local nId As Integer
&& Primero debes capturar el Id...
nId = This.Value && Se supone que estas dentro del evento Valid del TextBox
&& Creo un cursor el cual contendrá los datos que cargará el ComboBox
select nombre_prof, id_prof tabla_que_te_interesa where tabla.campoX == nId ;
into cursor curProf
with Thisform.cboTuCombo && Tu ComboBox...
.BoundColumn = 2
.ColumnCount = 2
.ColumnLines = .F.
.ColumnWidths = "200,0"
.IncrementalSearch = .T.
.ListIndex = 0
.RowSource = "curProf"
.RowSourceType = 2
.Style = 2
endwith