Выручайте народ. Связь 2х Combobox

Private Sub Form_Activate()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\db2.mdb"
cnn.Open
Set r1 = New ADODB.Recordset
r1.CursorType = adOpenDynamic
r1.CursorLocation = adUseClient
r1.LockType = adLockOptimistic
r1.Open ("Marka"), cnn
Do While Not r1.EOF
Combo1.AddItem r1(1)
Combo1.ItemData(Combo1.NewIndex) = r1(0)
r1.MoveNext
Loop
'r1.MoveFirst
'Do While Not r1.EOF
'Combo2.AddItem r1(3)
'Combo2.ItemData(Combo2.NewIndex) = r1()
'r1.MoveNext
'Loop
If Combo1.Text <> "" Then
MsgBox "OK"
Set r = New ADODB.Recordset
r.CursorType = adOpenKeyset
r.LockType = adLockOptimistic
r.CursorLocation = adUseClient
r.ActiveConnection = cnn
r2 = "Select * From Model Inner Join Marka On Marka.ID_Marka = Model.Id_Marka where Marka.ID_Marka = Model.Id_Marka"
r.Source = r2
r.Open
'MsgBox r
Do While Not r.EOF
Combo2.AddItem r(1)
r.MoveNext
Loop
'r1.MoveFirst
End If
End Sub