cria um Sub para carregar os combos:
Sub CarregaCombo(combo As Control, rsTabela As String, sSQL As String, rsCampo as String)
On Error GoTo errata:
combo.Clear
Dim i As Integer
Dim rsTemp As New ADODB.Recordset
rsTemp.Open sSQL, DB, adOpenKeyset, adLockOptimistic
rsTemp.MoveMin
Do While Not rsTemp.EOF
combo.AddItem rsTemp.Fields(rsCampo).Value
rsTemp.MoveNext
Loop
rsTemp.Close
Set rsTemp = Nothing
combo.ListIndex = -1
Exit Sub
errata:
MsgBox .Number & " - " & Err.Description
End Sub
Bom, a Sub está definida, agora é só preencher os combos, colocando no evento Click de cada Combo a relacao que existe entre eles na variavel sSQL da Sub.
espero ter contribuido!!
