Visual Basic - consulta de acces!

Private Sub CmbOrgano_Click()
Comando.CommandText = "PRECIO_Consulta"
Comando.CommandType = adCmdStoredProc
Parametro = Comando.CreateParameter("S", adVariant, adParamInput)
Comando.Parameters.Append Parametro
Parametro.Value = Me.CmbSistema.Text
Parametro = Comando.CreateParameter("O", adVariant, adParamInput)
Comando.Parameters.Append Parametro
Parametro.Value = Me.CmbOrgano.Text
Comando.ActiveConnection = Conexion
Set Cargar = Comando.Execute
Cargar.Open
Cargar.Close
End Sub

me genera un error este es el error y no por que!

Objeto Parameter mal definido. Se proporciona informacion incompleta o incoherente