runtime error 3061 too few parameters

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?
VB Code:
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