Visual Basic - Optimizar

tengo una tabla consulta en acces que me filtra ciertos datos segun los parametros que le coloque ahora quiero optmizar esto, se que todo esto puede colocarse en una sola linea d sql, ahora no hayo como optimizar esto quien me puede hechar una mano

Set AdoComando = Nothing
Set AdoParametro = Nothing
AdoComando.CommandText = "Consulta"
AdoComando.CommandType = adCmdStoredProc
Set AdoParametro = AdoComando.CreateParameter("x", adDouble, adParamInput)
AdoComando.Parameters.Append AdoParametro
AdoParametro.Value = Marcador1
Set AdoParametro = AdoComando.CreateParameter("z", adBSTR, adParamInput)
AdoComando.Parameters.Append AdoParametro
AdoParametro.Value = Marcador2
Set AdoComando.ActiveConnection = AdoConexion
Set AdoCargar = AdoComando.Execute

PD: adocomando esta definifo como ADODB.Command y adoparametro esta definido como ADODB.Parameter