como puedo hacer para que un combobox dependa de otro?????

[Lalybs]

Hola otra vez.. me gustaria realizar una nueva consulta con respecto al combobox:
tengo un combo al que le cargo una descripción:

Dim re As New ADODB.Recordset
re.Open "select* from categorias", con, adOpenKeyset, adLockOptimistic, adCmdText
While Not re.EOF
Combo3.AddItem re!categoria
re.MoveNext
Wend
y me gustaria que al seleccionar un items del combo me muestre el id en un textbox, lo eh probado con el siguiente código pero me da un error de parámetros..

Private Sub Combo3_click()
Dim ri As New ADODB.Recordset
ri.Open "select * from categorias Where categoria= " & Combo3, con, adOpenKeyset, adLockOptimistic, adCmdText
If Not (ri.EOF And ri.BOF) Then
Text6 = ri!idcategoria
editar = True
Text3.SetFocus
End If
ri.Close
End Sub

Ayuda...!!!!
Gracias,
Saludos.