Работа с ACCESS в VBA (ComboBox)

[stasya]

Привет всем!
у имеется два объекта ComboBox. Мне нужно чтобы при выборе строки из одного списка, второй формировался в зависимости от этого выбора.
 я написала програмку:

Код:

Private Sub Form_Load()
Set base = OpenDatabase("база.mdb")
Set rset1 = base.OpenRecordset("Таблица1")
Set rset2 = base.OpenRecordset("Select DISTINCT отдел From таблица1")
rset2.MoveFirst
 Combo1.Clear
    Do While Not rset2.EOF
  Combo1.AddItem rset2.Fields("отдел")
rset2.MoveNext
Loop
Combo1.Text = rset1.Fields("отдел")
End Sub

Private Sub Combo1_Click()
Text6.Text = Combo1.Text
Set rset3 = base.OpenRecordset("Select DISTINCT должность, отдел From должность where отдел = 'Text6.text'")

rset3.MoveFirst
 Combo2.Clear
    Do While Not rset3.EOF
  Combo2.AddItem rset3.Fields("должность")
  rset3.MoveNext
Loop
Combo2.Text = rset1.Fields("должность")
End Sub

Но выводится ошибка на строчке "rset3.MoveFirst"
Почему ошибка и как ее исправить?
ПОМОГИТЕ ПОЖАЛУСТА!!

[RXL]

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

Это бред:

Код:

"Select DISTINCT должность, отдел From должность where отдел = 'Text6.text'"

Пиши так:

Код:

"Select DISTINCT должность, отдел From должность where отдел = '" & Text6.text & "'"

Но это потенциальная дырка, особенно если комбобокс позволяет редактировать текст. Т.ч. лучше делать через подстановки. Об этом читай в MSDN.