データベースとの接続処理で一つ教えてください

Sub test()
Dim wkR As New ADODB.Recordset


S_RecordsetClose (wkR)
End Sub

レコードセットのcloseとnothingの処理を一つにまとめようとしたんですが、
型が一致しません　　　と S_RecordsetClose (wkR) のところでエラーになります

Debug.Print TypeName(wkR)　で見たら当然（だと思うんですが）Recordsetに
なってるんで、なんでこれで型の不一致になるんです？

ちなみに S_RecordsetClose　に書いた処理は↓です

Sub S_RecordsetClose(ByVal rec As Recordset)
rec.Close
Set rec = Nothing
End Sub