Вот для трех, писано в Access, кусок выдрал из готовой программы. Смысл уловишь, подстроишь под себя:

Первый комбо

Private Sub rnfrm_AfterUpdate()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
mofrm.RowSource = ""
rst.Open "select * from mo where idrn=" & Me.rnfrm.Column(1), CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst.MoveFirst
While Not rst.EOF
mofrm.RowSource = rst!mo & ";" & rst!id & ";" & mofrm.RowSource
rst.MoveNext
Wend
rst.Close

End Sub

Второй

Private Sub mofrm_AfterUpdate()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Me.nsfrm = ""
Me.ulfrm = ""
nsfrm.RowSource = ""
rst.Open "select * from town where idmo=" & Me.mofrm.Column(1), CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst.MoveFirst
While Not rst.EOF
nsfrm.RowSource = rst!point & ";" & rst!id & ";" & nsfrm.RowSource
rst.MoveNext
Wend
rst.Close

End Sub

Третий

Private Sub nsfrm_AfterUpdate()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
ulfrm.RowSource = ""
Me.ulfrm = ""
rst.Open "select * from street where id_town=" & Me.nsfrm.Column(1), CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst.MoveFirst
While Not rst.EOF
ulfrm.RowSource = rst!street & ";" & ulfrm.RowSource
rst.MoveNext
Wend
rst.Close

End Sub

При выборе значения из первого комбика заполняется второй, после второго - третий. Последовательно от первого к последнему.