Microsoft Access 掲示板

はじめまして。お世話になります。

Private Sub コマンド0_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT DISTINCT 仕入先コード FROM data ", dbOpenForwardOnly, dbReadOnly)

    Do Until rs.EOF
        DoCmd.OpenReport "外注預", acViewPreview, , "[仕入先コード]=" & rs!仕入先コード
        DoCmd.OutputTo acOutputReport, "外注預", acFormatPDF,
                       "C:\Users\a-nakanishi\Desktop\テスト\" & Format(Date, "yyyymm") & "" & rs!仕入先コード & ".pdf"
        DoCmd.Close acReport, "外注預"
        rs.MoveNext
    Loop

    rs.Close
End Sub

●使用しているもの
data　テーブル
外注預　レポート
仕入先コードでレポートを抽出

●やりたいこと
仕入先コードごとにレポートをPDFで保存したい
PDFの保存はできています。

●困っていること
DoCmd.OpenReport "外注預", acViewPreview, , "[仕入先コード]=" & rs!仕入先コード
ここでパラメータの入力が出てしまう。変数でレポートを自動で抽出できない。

rs!仕入先コード変数に仕入先コードは入っているのですが、
パラメータの入力を要求されます。
パラメータの入力の下のA020050は仕入先コードです、手入力で一つ一つ仕入先コードを入れると正しくPDFが作られます。
指定の仕方がおかしいのでしょうか？
初歩的な質問で申し訳ありませんがよろしくお願いいたします。