Проблема между функцией и select case

[Mary-Salta]

Добрый день! есть функция которая возвращает значение таблицы
Public Function MyAct(par)
Dim src
Select Case par
Case "1"
src = "updateT_r"
Case "2"
src = "updateT_O"
End Select
DoCmd.OpenForm "F_deals1", OpenArgs:=src
End Function
И при открытии формы сл. коды:
Private Sub Form_Open(Cancel As Integer)
Dim oRS As Recordset

Select Case src
Case "updateT_O": Set oRS = New Recordset
.......... действия с рекордсетом
Case "updateT_r": Set oRS = New Recordset
........действия с рекордсетом
End Select
Me("F_updatedeals").Form.RecordSour ce = Me.OpenArgs

короче, при открытии формы ни параметр src ни OpenArgs не попадает в Select Case . Помогите почему?