Set cmd = New ADODB.Command cmd.ActiveConnection = conn cmd.CommandType = adCmdStoredProc cmd.CommandText = "sp_get_marcas_modelos" Set rtmp = cmd.Execute