AccessReportのパラメーターをVBで指定する方法

はじめて投稿させて頂きます。
AccessReportをVBで制御しているのですが、Reportのソースがパラメータークエローのためパラメーターを聞いてきます。そこをVBのコードで指定したいのですが、いまいちうまく行きません。ご存知の方がいらっしゃったら教えてください。
ちなみに現在下記のコードではエラーです。宜しくお願いします。
    Set objAccess = CreateObject("Access.Application")
    With objAccess
        .OpenCurrentDatabase "C:\Concepts\Concepts.mdb"
        .DoCmd.OpenReport "PriceList1", acDesign
        .Reports!PriceList1.Parameters("Month1").Value = Val(Text1) - 1
        .Reports!PriceList1.Parameters("Month2").Value = Val(Text1)
        .DoCmd.OpenReport "PriceList1", acPreview
        .Visible = True
    End With