runtime error 3061 too few parameters

[Marcogol]

im wondering, and i dont know what triggered this error because it was working awhile ago... now it doesnt...

it shows that error.. what could be wrong?

Private Sub Form_Load()
    Set dbIntermed = DBEngine.OpenDatabase(App.Path & "\Intermed.mdb")
    Set rsPromo = dbIntermed.OpenRecordset("PromotionalMaterial")
    'Set rsPromo = dbIntermed.OpenRecordset("SELECT * from PromotionalMaterial where ProgramID like '" & frmProgram.txtProgID.Text & "*'")
    InitGrid
    FillGrid
End Sub

*error highlighted the commented line