Microsoft Access 掲示板

ありがとうございます。後の方のコードを使わせていただきます。
ところであと一つお助けください。
Hatena様たびたびお世話になります。計画としては下記式によりリストボックスから複数選択し。選択した物に依頼日を打ち込みたいのです。
依頼の入力については当日は難しく翌日に入力したいのですが。
rs!依頼日 = Date　これは依頼日を打ち込めます。
rs!依頼日 =
先般ご教示いただいた下記式を活用しテキストボックスのコントロールに=受付日(Date())として名前を翌日入力としました。
Public Function 受付日(申請日 As Variant, Optional 営業日数 As Long = 1) As Variant
    Dim 営業日 As Long
    受付日 = 申請日
    If IsNull(受付日) Or 営業日数 = 0 Then Exit Function

    While 営業日 < Abs(営業日数)
        受付日 = 受付日 - 1
        Select Case Weekday(受付日)
            Case vbMonday To vbFriday
                If IsNull(DLookup("祝日名", "T_祝日", "日付=#" & 受付日 & "#")) Then
                    営業日 = 営業日 + 1
                End If
        End Select
    Wend
End Function

Private Sub 任意_Click()
Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("TOSS")

    Dim varItm As Variant
    With Me.listSupplier
        For Each varItm In .ItemsSelected
            rs.AddNew
            rs!本部 = .ItemData(varItm)
            rs!依頼日 = ？？
'
        Next

    End With
'
    rs.Close