VBA |Access 2007

[Myshayst]

салют,всем-всем.просьба помочь поправить код,ибо уже не пойму что не так.
хочу чтоб выбрав в поле со списком значение,в другом поле отображалось соотвествующей значение в таблице,которые есть в строке...не получается свзять.хэлп ми.
а также при открытии формы поля были бы пустые.поправьте код пожалуйста.



Option Compare Database
Public Sub Nickname1_Click()
Dim dbs As Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Animals")

rst.MoveFirst

Do Until rst.EOF
If rst!ID_animals = Me.Nickname1 Then
Me.Age_an = rst!Age_an
End If
rst.MoveNext

Loop


End Sub



Private Sub Form_Load()
Me.Nickname = " "
Me.Age_an = Null


End Sub

[Step_UA]

можно без vba