いつもお世話になっています。
パラメータオブジェクトを使ったADOのプログラミングで条件検索のアプリを作ってい
ます。
初歩的なことですみませんが教えてください。

■ 使用環境  ＜クライアント／サーバー＞
 クライアントPC
OS／Windows 98
 Access／Access 2000
 SQLサーバ7.0 DESKTOP版をインストール
 サーバ名PC3としSQLサーバデータベースを作成

■ 検索のしくみ
・個人の属性検索をします。個人の属性は個人番号、所属、年齢です。
・ 1つのAccess2000のフォームを使って、所属 を条件に検索、年齢 を条件に検索しま
す。
・ フォームのモジュールで イベント実行をおこないます。
・ イベント時にストアードプロシージャが条件検索し、検索結果を一時ファイルに落
とします。
・ Access2000のフォームは一時ファイルの連結フォームになっています。

■ 実現したいこと
所属 を条件に検索したあと、検索結果がでている画面で、年齢を条件に検索を行う。


■ ADOのプログラミング

<イベント後の記述>

Option Compare Database
Option Explicit
Const cFormName_M = "MF"
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim parm As ADODB.Parameter
Dim ado_err As ADODB.Error
Dim cmd1 As ADODB.Command
Dim parm1 As ADODB.Parameter
Dim intRet As Integer

Function 属性_v() As Integer
  属性_v = False
  If Trim(Forms(cFormName_M)![所属]) & "" = "" Or Forms(cFormName_M)![所属] =
0 Then
      所属_v = True
  Exit Functi属性Command

  Set rs = New ADODB.Recordset
  Set parm = New ADODB.Parameter
  Set temp = New ADODB.Recordset
  parm.Direction = adParamInput
  parm.Type = adInteger
  parm.Value = Forms(cFormName_M)![所属]
  With cmd
      .ActiveConnection = cn
      .CommandType = adCmdStoredProc
      .CommandText = "strProc_shozoku"
      .Parameters.Append parm
  End With
       cmd.Execute

  Set rs = Nothing
  Set parm = Nothing
  Set cmd = Nothing
  DoCmd.Close
  DoCmd.OpenForm cFormName_M

End Function

Function 属性_w() As Integer
  属性_w = False
  If Trim(Forms(cFormName_M)![年齢]) & "" = "" Or Forms(cFormName_M)![年齢] =
0 Then
      属性_w = True
      Exit Function
  End If
  Set cn = Application.CurrentProject.Connection
  Set cmd = New ADODB.Command
  Set rs = New ADODB.Recordset
  Set parm = New ADODB.Parameter
  Set temp = New ADODB.Recordset
  parm.Direction = adParamInput
  parm.Type = adInteger
  parm.Value = Forms(cFormName_M)![年齢]
  With cmd
      .ActiveConnection = cn
      .CommandType = adCmdStoredProc
      .CommandText = "strProc_nenrei"
      .Parameters.Append parm
  End With
       cmd.Execute

  Set rs = Nothing
  Set parm = Nothing
  Set cmd = Nothing
  DoCmd.Close
  DoCmd.OpenForm cFormName_M
End Function

■ 問題点
所属 を条件に検索したあと、検索結果が画面、一時ファイルに残って、その次に年齢
を条件に検索のしたいが一時ファイルの更新ができない。
前の検索結果を閉じて、新たな検索するところを教えていただきたい。
seki