For få parametre. Der var ventet 2 - fejl

Når jeg bruger nedenstående funktion får jeg ovennævnte fejl. Hvad er der galt?
Jeg tror det er med dataadapteren den er gal, men er den nødvendig for at kunne returnere de forespurgte oplysninger?
=====
  public function FuncQueryOne(ISBN as string) as DataSet

    dim objConnection as New OleDbConnection(m_DSN)
      objConnection.Open()

    dim objCmd as New OleDbCommand()
      objCmd.Connection=objConnection
      objCmd.CommandText="[Query1]"
      objCmd.CommandType = CommandType.StoredProcedure

    dim myDataAdapter as New OleDbDataAdapter(objCmd)

    dim DataSetOne as New DataSet()
      myDataAdapter.Fill(DataSetOne)

      return DataSetOne
  end function