Visual Basic - Combinar Combobox

Hola.

Por favor me pueden ayudar con este código.

Sub CambiatxtCiudadOrigen()

Set Rec = New ADODB.Recordset

Rec.CursorLocation = adUseClient
Rec.CursorType = adOpenDynamic
Rec.LockType = adLockBatchOptimistic

sSQL = "SELECT DESC_CIUDAD FROM TORIGEN WHERE COD_CIUDAD = '" & cboCiudadOrigen.Text & "'"
Rec.Open sSQL, cnbase

txtCiudadOrigen.Text = Rec!DESC_CIUDAD

End Sub

La idea es que al seleccionar en el combo el código de ciudad, en el textbox se cargue la descripción del dato seleccionado pero no me resulta.

Ejemplo:

COD_CIUDAD DESC_CIUDAD
BUE BUENOS AIRES
MAD MADRID
BCN BARCELONA