Visual Basic - AYUDA ¡¡URGENTE!! POR FAVOR

Hola,

tengo un problemilla, dentro de una ventana tengo dos datacombo, con uno selecciono el nombre y con el segundo la direccion.

Me gustaria saber como puedo hacer para que en el segundo datacombo el de direccion aparezcan solo las direcciones que corresponden a ese nombre.

El codigo que he utilizado es el siguiente pero no me funciona

Private Sub DataCombo1_Click(Area As Integer)
Dim razon As String
razon = DataCombo1.Text

Adodc1.RecordSource = "Select * from [LITERAL] where [ROTULO]= '" & razon & "'"
DataCombo2=Adodc1.RecordSource
End Sub

Muchas gracias

tamare otra vez con la misma vaina???? ya vas como 20 veces haciendo la misma pregunta.. ya te has metido en todos los foros todavia.!!!